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Chegou 
o Cobra 210. 

Compare seu micro com ele 
e veja o que voce esta perdendo. 

Ja esta no mercado o Cobra 2 1 0, o micro da 
Cobra. 

Mais bonito e mais avan<pado do que os outros 

micros deusoprofissional que voce conhece. 

Se e mais bonito no desenho, o Cobra 210 e mais 
avant^ado na tecnologia Fmto de experiencia de 7 
anos da Cobra na area de microcomputadores, o 
Cobra 210 incorpora caracteristicas inovadoras que 
fazem dele urn equipamento de facil utiliza<pao, 
grande flexibilidade e aplicabilidade. 

Podendo trabalhar com tres sistemas operacio- 
nais - SOM, SPM e MUMPS o Cobra 2 1 0 e urn 
micro voltado para aplicagoes protissionais em pe- 
quenas e medias empresas, processamento distri- 
buido e setorial em grandes organizagoes, entrada e 
comunicat^io de dados, automa^o de escritorios e 
processamento cientifico. 

Gnhca 2 10 esta con- 

tida numa unica placa Esta mesma filosofia de 
construqio foi aplicada aos outros equipamentos da 
famflia Cobra 200: o TI 200, terminal inteligente as- 
sincrono e o TR 207 remoto sincrono. Esta padroni- 
za(pao, alem de diminuir os custos de fabrica^o - re- 
duzindo assim o pre<;o final para o usuario tam- 
bem permite que um terminal da linha possa ser fa- 
cilmente transformado num micro. 

Compativel com o Cobra 305, o Cobra 21 Oja 
chega com uma grande e variada biblioteca de soft- 
ware. 

Compativel com toda a familia Cobra, o 2 1 0 e 
uma excelente porta de entrada para a mais comple- 
ta linha de equipamentos e sistemas disponiveis no 
mercado. 

Contate a filial da Cobra mais proxima de voce 
para conhecer o Cobra 2 1 0 de perto. 

Depois, fa<^ voce mesmo as compara^oes. 

■ ■ i Cobra 210 

O Micro da Cobra. 



Rio dejaneiro, RJ - (02 1 ) 265-75 5 2 - Sao Paulo. SP - (01 1 ) 826-85 5 5 

Porto Alegre. RS - (05 1 2) 3 2-7 1 1 1 - Florianopolis, SC - (048) 222-0588 
Brasilia, DF - (06 1 ) 273- 1 060 - Salvador, BA - (07 1 ) 24 1 -5 3 5 5 
Curitiba,PR -(041) 234-0295 - Belo Horizonte, MG - (03 1 ) 225-4955 
Recife, PE-(081) 222-0311 -Fortaleza, CE-(085) 224-3255 



na Zona Franca de Manaus. 



\&mos colocar todos 
os pingos nos bits. 




\ferbatirri 



Maior fabricante mundial de disquete 



Quern usa computador para controles e decisdes 
empresariais, organizagao de assuntos pessoais, 
trabalhos escolares ou simplesmente para se divertir, 
sempre quer respostas exatas. 

E por saber muito bem disso, a VERBATIM e a 
empresa que mais investe em pesquisa e 
desenvolvimento de produtos para alcangar e manter sua 
posigao de lideranga em qualidade de mi'dia magnetica flexivel - 
e garantir as respostas exatas que voce espera. 

A VERBATIM ja trouxe para o Brasil o resultado de todos esses 
anos de trabalho. Sua f&brica brasileira esta produzindo os disquetes 
de 5 1/4 e de 8 polegadas, os mesmos que lideram as vendas no 
mundo inteiro. 

E se prepara para langar suas fitas magneticas que vao trazer 
um novo padrao de qualidade, bem acima das normas tradicionais. 



Fone: (01 1)853. 1209 -SP 

Datalife tern resposta para tuda 







Voc6 s6 descobre o quanto precisa de um Micro-Com- 
putador JR da Sysdata depois que o conhece de perto. 

Voc6 vai ter certeza de que fez um 6timo negbcio ao 
adquirf-lo assim que o colocar na sua empresa ou na sua 
casa. 

0 JR da Sysdata 6 rSpido, 6 vers£til, 6 compacto. 

APLICApdES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatdrio de clientes, mala direta, 
cdlculos de orgamentos financeiros, controle de processos 
industrials, c£lculos de engenharia, c£lculos de estatlsti- 
cas, fungbes matematicas, fung&es I6gicas em cadeia de 
caracteres (STRINGS), grSficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

0 acesso a grandes sistemas de computagao, a comuni- 
cag§o entre os departamentos de Empresa, efetuar pro- 
gramas especfficos para cada Empresa. 

E, como se nao bastasse, ele 6 o Micro-Computador de 
meoor prego do mercado 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao econ&mico. Mas 6. 

Afinal, ele 6 o mais completo Micro-Computador de sua 
geragao. 

Inclusive no prego. 

Voc§ pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 



*A\wvvrm/.iiii/.ii AV - PACAEMBU, 788 

CEP 01 155 - TEL: 67.5900 



REVENDEDORES: SAO PAULO/Capital - Ad Data 864.8200; ADP System 227.6100, Biicker 881.7995; Cindtica 36.6961; Compumarketing 212.9004; Compute K2.8K3; Com 



Taubat*- EnSconM.'^’; Mogi Gua$u - Guapumaq 261.0236; Bragan^a Paulista Inf ordata 543.5198; Bauru; MarHia-Sipro 33.4109; 

DE JANEIRO /Capital - Clap 228.0734; Computique 267.1093; G D M Informdtica 284.8744. JR de G6es 246.4180; Kristian 391 .3165; Supnmento 274 8845; Petrdpoli* * "ti- 
ca 42.1391 MINAS GERAIS/Belo Horizonte Compucity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital 337.7946; Po^osde Caldas Computique 721.5810; 
RIO GRANDE DO SUL/Porto Alegre - Advancing 26.1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782; Pelotas Sistematika 22.3810; Novo Hamburgo - Micromega 



Compushow 273.2128; Digitec . 

PARAiBA/Joao Pessoa Medusa 221.6743: PERNAMBUCO/Recife Elogica 241.1388 







SERIE RACIMEC 1800 

Telsist 1802e 1802D: 
Microcomputadores de baixo 
custo, que crescem de acordo 
com as necessidades de 
processamento pessoal, 
profissional ou da Empresa. 

Discos flexiveis, disco rigido, 
perifericos e comunicagoes 
(inclusive emulando 3270's, 
2780 e 3780). 

Quando chegar o momento 
de expandir para um ambiente 
multiusuario, as mesmas 
unidades, sem quaisquer 
modificagoes, passarao a ser 
usadas como estagoes de 
trabalho satelitesdos 
concentradores 1806. 

Produtos com a qualidade 
e o suporte da RACIMEC. Alto 
desempenho a baixo custo. 





RACIMEC 



RACIONALIZAQAO E MECANIZACAO 



Departamento Regional de Marketing Centro-Norte - Rua Barata Ribeiro, 370/307 - sobreloja - Rio de Janeiro - 22040 - Tel. : 235-1561 



Distribuidor exclusivo em Sao Paulo - OFFICE AUTOMATION - Av. Paulista, 1 1 59/conj. 1 408 - Sao Paulo - 01 31 1 - Tel. : 284-8448 




P&D Slstemas Eletrfinicoa S.A. 



/Micro 




Ano III 

N? 35 

Agosto 1984 



Biblioteca 



SECOES 



10 CARTAS 



76 DICAS 



24 BITS 



84 LIVROS 



8 EDITORIAL 



47 XADREZ 



86 CLASSIFICADOS 
E MENSAGEM DE ERRO 



SUMARIO 



AO PROGRAMASQUE 
ESCREVEM 

PROGRAMAS - Conhe^a 
essa ferramenta de trabalho 
para os usudrios de 
microcomputadores - analistas 
profissionais ou leigos: 
Creator e Producer, dois 
programas capazes de criar 
outros programas de acesso 
a bancos de dados. 



f.A AUTOMA£AO 
BANCARIA: 

O BANCO MAIS RAPIDO 
E EFICAZ - A Informatica 
no dia-a-dia do cidadao 
comum. Nesta reportagem, 
MICRO SISTEMAS mostra 
os servigos computadorizados 
que hoje sao oferecidos por 
um numero cada vez maior 
de bancos. 



DECODIFICADOR DE CORES PARA 
-| AT COMPONENTES ELETR6NICOS - 

J.U Programa de Nelson Hisashi Tamura para 
Sinclair. 

MICRO BUG: O COMANDO D E 
'IQ O TRATAMENTO DE VALORES 

NUMERICOS - Artigo elaborado pelo 
CPD de MS. 

PSEUDO COMANDOS QUE 
CHAMAM ROTINAS AUXILIARES - 

Programa de Clovis e Rubens Almeida 
Menezes para TRS-80. 

Agx CODIGO MORSE A MODA SINCLAIR 

4 II - Rodada MS, programa de Jorge A. C. 
Bettencourt. 

NUM BLOQUEIO SEM SAIDA - 

Programa para Sinclair, de Roberto 
Tannembaum. 



CREATOR, UMA FERRAMENTA DE 
Qll PROGRAMAQAO - Artigo de Luiz 
Gonzaga de Alvarenga. 

AUTOMAQAO DE ESCRITbRIOS 
qX E DESTAQUE NA II* FUSE - 
Reportagem. 

n A NO PRESENTE, 0 ESCRITORIO 
/ U DO FUTURO - Reportagem. 

HA MICROFESTIVAL 84: O MERCADO 
/ H AMADURECE - Reportagem. 

CURSO DE ASSEMBLER - XIX - 
/ O Ultima licao. 

MICRO-MASTER MK-1, DA RIFRAN: 
O') COMPUTADOR EDUCACIONAL 
PARA ESTUDANTES DE 

Eletronica 



A'J DOIS IMPORTANTES 
COMANDOS DO 
NEWDOS - Utilizar um 
sistema operacional com 
eficiencia e fundamental. 

Neste artigo, Renato 
Degiovani descreve as fun?oes 
dos comandos SYSTEM e 
PDRIVE, ambos oferecendo 
possibilidades de serem 
explorados por voce, usudrio. 



NAOPERCADE 
MEM6RIA O VIDEO 
DE SEU APPLE - O que o 
usudrio precisa saber para 
dominar a memoria do video 
de seu micro e o tema deste 
artigo de Evandro 
Mascarenhas de Oliveira, 
que explica o funcionamento 
da pagina 1 no modo 
texto/grafico, em baixa e alta 
resolu^ao. 
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P PROGRAM DEVELOPME 



NEUD0S/80 READY 



DISTRIBUTED BY 
HEART OP TEXPS 
COMPUTER SYSTEMS 



MINI-NEWD0S/80 READY 



PRESS <A> OR <B> TO 
SELECT DESIRED MENU 



TEXTO 
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M uito se tern falado, ultima- 
mente, sobre automat; do. Va- 
rios eventos - feiras, semina- 
rios e simpdsios - ocorreram 
durante os dots meses passa- 
dos, principalmente em Sdo Paulo e neles foi 
promovido um amplo debate sobre o tema. 
Com isto, o espago dedicado a automagao nos 
jornais e revistas foi grande, e esta "badala- 
gao ' ’ 6 important e no sentido de fornecer con- 
digoes para que a discussao torne-se ainda 
mais abrangente. 

Dadas as consequencias imediatas e irrever- 
sfveis da automagao na estrutura sdcio-econd- 
mica, notadamente nos nfveis de emprego e 
produtividade , 6 imprescindfvel que a introdu- 
f do deste processo em um contexto economico 
como o dos pafses do Terceiro Mundo seja fei- 
ta de maneira consciente. 

• Na esfera industrial, a automafao tern 
causado bastante polemica. Os avangos da ro- 
bdtica sao inconstestaveis e hoje, nos pafses 
desenvolvidos, discut e-se esta evolugao, pos- 
to que, inicialmente pensados para executor 
tare fas insalubres. perigosas e repetitivas, 
atualmente os robos jd sao projetados visando 
os aspectos da inteligencia simulada: flexibi- 
lidade (capacidade de realizar tare fas diversas) 
e precisdo, o que definitivamente muda o 
conceito de uso. 

No Brasil, as mudangas tern ocorrido rapi- 
damente. No setor comercial. diversas organi- 
zagoes de comercio varejista comegam a auto- 
matizar seus pontos de venda, experimentan- 
do com isto modificagdes em suas rotinas de 
trabalho. Os terminals de transference de fun- 



dos, introduzidos pelos bancos em algumas 
grandes lojas, fazem parte do novo conceito 
de “ dinheiro eletronico", que permitird aos 
lojistas maior seguranga para agenciar o crddi- 
to e, alardeava a manchete de um jornal, pro- 
moverd “o fim do cheque voador". Aldm de- 
les. computadores: terminals de caixa inteli- 
gentes e a identificagao dos produtos pelo cd- 
digo de barras (sobre Cddigo de Barras, ver 
MS n9 24, pdgina 70) sao alguns dos recur so s 
que promoverao, nas lojas, um aumento de 
eficiencia em suas operagdes internas de for- 
necimento de informagao e controle dos esto- 
ques e das vendas. 

Os bancos tambdm tern investido pesada- 
mente em automagao, e esta tornou-se, inclu- 
sive, o mais envolvente apelo de marketing 
langado pelas instituigoes financeiras. passan- 
do a ' ‘significar "os aspectos de ino vagao . ere- 
dibilidade e rapidez procurados pelos clientes. 

Na drea de automagao de escritdrio, muito 
se tern falado em semindrios e cursos - alguns 
carfssimos - e pouco feito de forma efetiva. 
Isto porque o conceito de escritdrio automati- 
zado ainda 6 algo indefinido ate na sociedade 
norte-americana. que nao se cansa de questio- 
nar o que i e a forma como deve ser introdu- 
zido. A imagem folcldrica do "escritdrio do 
futuro", com a "aboligao do Idpis e papel", 
aldm de ser perigosa. pois nao espelha a reali- 
dade. sd 6 possfvel de ser "ensaiada" nas gran- 
des corporagoes que puderem investir maciga- 
mente num sistema integrado. 

Nas mddias e pequenas empresas brasilei- 
ras. talvez o "office automation” fique, por 
enquanto, por conta de um processador de 



texto; um terminalzinho de videotexto e olhe 
Id. As atividades prior itdrias e mais intensas da 
empresa deverao ser automatizadas em pri- 
meiro lugar, mas ainda vdo conviver durante 
um bom tempo com setores que permanecem 
em suas formas tradicionais de trabalho. de- 
vendo o novo e o antigo se integrar de modo 
nao traumdtico. 

O importante, contudo. 6 constatar que 
diversos setores profissionais tern debatido 
como harmonizar a automagao. indispensdvel 
para que a atividade economica evolua em efi- 
ciencia e ganhe em potencial competitive e 
decrdscimo de custos. com nossa condigao. 
caracterfstica de nagao em desenvolvimento, 
de nao poder abortar nossos mdtodos tradicio- 
nais de produgdo de forma abrupta. em favor 
de receitas externas e em de trimen to do nfvel 
de emprego e da tranqiiilidade interna. 






0 Nesta edigao. publicamos a ultima ligao 
de nosso Cur so de Assembler Z-80. Foram vd- 
rios meses de convivencia, e gostaria de agra- 
decer e ressaltar o senso profissional do pro- 
fessor Amaury Moraes Junior, que continuard 
presente com seus artigos em MS. 
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PROCESSADORA 
IMPRESSORA 
DE MICROIMAGENS 
KODAK 
KOMSTAR 




A avanpada tecnologia do raio laser para 
converter os dados de sai'da de computador 
em imagens prontas para uso. 




As Processadoras/Impressoras de Microimagens Kodak KOMSTAR sao verdadeiros 
perifdricos de computador, que oferecem notdveis melhoramentos nas operagdes de 
safda de dados, ao mesmo tempo em que reduzem os custos operacionais. 




Permitem ainda a obtengao de tftulos em vdrios tamanhos, microfichas com fndice 
em diversos formatos. Tudo com rapidez e perfeigao, sempre. Mas aldm dessas, existem 
outras vantagens que vocd precisa conhecer. 



Nao espere mals tempo. Envle hoje mesmo o cupom abalxo, sollcltando o Gula 
Kodak para as Processadoras/Impressoras de Saida de Dados de Computador. 
Voc6 verd, em detalhes, tudo o que as Processadoras/Impressoras Kodak KOMSTAR 
podem oferecer. 



Ao receber seu Guia, vocd estard abrindo as portas de sua empresa para a mais 
avangada tecnologia existente no mundo da infomndtica. Uma tecnologia que tern a 
garantia de uma marca que vocd conhece e confia: Kodak. 



CUPOM DE RESERVA GRATIS 



Sim, quero receber gntuitamente o Guia Kodak para as Processadoras/Impressoras de Saida de 
Dados de Computador. 



Nome. 



Corgo. 



Empresa. 



Enderepo 

CEP Cl DADE ESTADO 

(A Kodak atenderd os pedidos por ordem de chegada e na medida dos seus estoques). 







Departamento de Sistemas Microgrdficos 

KODAK BRASILEIRA COMERCIO E INDUSTRIA LTDA. 

Rua George Eastman, 213 • 05690 • Tel.: (Oil) 542-0111 • Sao Paulo • SP 



0 sorteado deste mis, que receber* uma as- 
sinatura de urn ano de MICRO SISTEMAS, 

1 Josi da Lima H. Neto, de Sao Paulo. 



1-7000 DA ITAUTEC 

L — ' . 

Oi pessoal. Sou um leitor que gosta mui- 
to dessa revista e quando tenho uma duvida 
vou logo consultar a minha MICRO SISTE- 
MAS para resolver o meu problema. A mi- 
nha pergunta agora 6 a seguinte: estou co- 
megando a trabalhar com o microcomputa- 
dor 1-7000 Junior, da Itautec, e queria saber 
com que linha este equipamento 4 compatf- 
vel (...). 

Ricardo NegrSo de Oliveira 
Taguatinga - DF 

Primeiro, Ricardo, a equips manda um 
abrago pri voci. £ muito gostoso receber 
uma carta simpitica como a sua: obrigada e 
escreva sempre, certo? Bom, mas com rela- 
gao 4 sua pergunta sobreo 1-7000, da Itautec, 
ninguim melhor que o prbprio fabricante 
para responder 4 sua dCivida: 

"A Itautec investe grande parte do seu 
esforgo em pesquisas na Area de Informitica. 
Como resultado destes investimentos, surgi- 
ram diversos produtos nesta Area. A tecnolo- 
gia tanto a nlvel de hardware como software, 
pertence a Itautec, portanto, segue uma li- 
nha prbpria. 

A Itautec langou uma famflia de micro- 
computadores que procure atingir as diver- 
sas faixas de usuirios existentes no mercado. 
Esta famflia e composta, basicamente, de 
tris modelos: 

1. JUNIOR - Volt ado ao uso pessoal e aos 
prof issionais liberals; 

2. JUNIOR-E - Dirigido is empresas da pe- 
queno e m6dio porte; 

3. 1-7000 - Especffico para empresas com 
volume maior de processamento e com po- 
tencial de utilizagao das diversas configura- 
tes possfveis. 

Os modelos sao, em termos de hardware 
e software, idinticos. A diferenga esta na 
maior ou menor possibilidade de expansao. 
Existe, inclusive, a possibilidade de evolu- 
gao dentro da famflia, isto 6:pode-se passar 
do JUNIOR para o JUNIOR-E, e deste para 
o 1-7000, havendo uma total compatibilida- 
de entre o sistema operacional (SIM/M) e o 
software disponfvel. 

O SIM/M 6 compatfvel com a versao 
CP/M 22. Esta opgao deve-se ao fato deste 
sistema ser bastante d if undido e com altfssi- 
mo nfimero de software disponfvel no mer- 
cado. Alim das facilidades padrio oferecidas 
pelo CP/M 2.2, o SIM/M incorporou um 
conjunto extra de opgdesque aproveitam ao 
miximo o hardware da famflia de micro- 
computadores, e que permits, entre outras 
coisas, a interagao com computadores de 
grande porte 

Helton Figueiredo de Oliveira 

Gerente de Produto — micro computadores 

da Itautec 



RENUM 



Fago parte do grupo de privilegiados, is- 
to 4, sou assinante de MS. O motivo desta, 
entretanto, 4 consulti-los sobre o programa 
RENUM, publicado em MS nP 20, de maio 



de 83, pig. 70, pois apesar das corregoes in- 
seridas nos numeros posteriores de MS, o 
programa nao funciona no meu CP-500. 
Minhas duvidas sao: 

IP) Os enderegos das tabelas (SA) e as ro- 
tinas da ROM sao compatfveis com o TRS- 
80 modelo III? 

2P) A instrugao LD IX, TABAUX (linha 
1740) 6 de quatro bytes, no caso DD21 
F0FF. Mas voces publicaram a corregao 
noformato DDF0FF. Esti correto? 

3P) Se TABAUX armazena numeros das 
linhas antes da renumeragao, 16 bytes sao 
suficientes para isso, j4 que TABAUX EQU 
= FFF0. 

Pode ser que o problema esteja na tercei- 
ra hipdtese que apresentei, pois o RENUM, 
no meu caso, renumera todas as linhas mas 
nao renumera GOTO, GOSUB, ON A..., 
dando erro 5 (linha inexistente). Help. 

Heleno F. Araujo 
Belim — PA 

Como de hibito, mandamos sua carta pa- 
ra o Josi Ribeiro Pena Neto, autor do pro- 
grama "Renumere seus programa* em BA- 
SIC". Eis a resposta: 

"Recebi da redagao de MICRO SISTE- 
MAS uma c6pia da carta em que voci expde 
suas duvidas sobre o programa RENUM. A 
propbsito, devo Ihe informar que: 

1 — Os enderegos de rotinas da ROM e tabe- 
las da RAM utilizados no programa parecem- 
me osmesmosdo modelo III. O programa ji 
foi testado em um Naja e funcionou. 

2 - Quanto a linha 1740, voci esti certo. A 
forma correta i 0021 F0FF. 

3 - A fungio de TABAUX no programa 6 
armazenar provisoriamente o numero da li- 
nha em ASCII, antes de converter em bini- 
rio (linha 2090). Voci deve ter conf undido 
com TABELA. 

Talvez o seu programa nao esteja funcio- 
nando por causa de uma ultima corregao 
que nao foi publicada na revista: na linha 
2090, a instrugio i CD5A1E, e nao como 
foi publicado." 

Josi Ribeiro Pena Neto 
Belo Horizonte — MG 



JORNADA NO APPLE 



Muito me interessou o divertido progra- 
ma "Jornada nas estrelas”, veiculado em MI- 
CRO SISTEMAS nP 25 (edigao de outubro 
de 83), de autoria do Dr. Kazimierz Mala- 
chowski. Para ser mais preciso, tal programa 
"deve” ser divertido, pois ap6s a digitagao 
do mesmo, a nave estrelar Enterprise nfio 
saiu do lugarl Troca de olhares, entre eu e o 
meu filho, realmente constrangedores, pois 
ele ji estava i post os na ponte de comando, 
empunhando sua pistola laser e tudo maisl 

Para melhor informagao, meu equipa- 
mento 6 um Apple II, que utiliza a lingua- 
gem Applesoft, com a qual, infeiizmente, 
nao tenho a intimidade necessiria. Devido 
ao exposto, solicito que, se possfvel, efetuas- 
sem uma consulta ao Departamento Ticnico 
de MS o qual, acredito eu, poderia solucio- 
nar os problemas relativos is diferengas en- 
tre as duas linguagens, apesar de estar ciente 
de que o autor recomenda rodar o programa 
em equipamentos da linha Sinclair. 

Por mim, continuaria com as tentativas 
de solucionar o problema surgido se nao fos- 
se o ansioso olhar de meu garoto, que diaria- 
mente aguarda-me i porta de casa com a pis- 
tola laser em punho, como a dizer-me: 
Quando partimos, Capitao Kirk?" 

Paulo A. Borges 
Rio de Janeiro — RJ 



Realmente, o programa "Jornada nas es- 
trelas" foi desenvolvido para equipamentos 
da Ibgica Sinclair. Tentar adaptar o progra- 
ma publicado para a linha Apple resultaria 
em maior esforgo do que o necessirio para 
desenvolver um "Jornada nas estrelas" espe- 
cialmente, ou melhor, diretamente no Apple. 

Por uma questao de decisao editorial, 
n6s nao fazemos conversao de sistemas. Mas 
aproveitamos este espago para pedir aos lei- 
tores que nos mandem colaboragoes para os 
equipamentos compatfveis com o Apple e, 
muito em especial, um "Jornada r»s_ estre- 
las" para que o nosso amigo Paulo nao seja 
mais interpelado pelo seu filho e que os dois 
possam voar pela galixia na Enterprise. 



ESCLARECENDO DUVIDAS 



Tenho uma sirie de duvidas sobre o TK 
2000 Color: em primeiro lugar, aonde foram 
parar os 64 K de RAM anunciados, se no 
prdprio manual de operagao do computador 
hi um mapa de memdria onde a ROM esti 
inclufda neste 64 K? 

Outro problema 6 o manual ticnico (fer- 
ramenta indispensivel para um estudo apro- 
f undado do computador, tanto em hardware 
como em programa gao Assembler) : este ma- 
nual existe ou seri somente uma promessa 
que nao seri cumprida (como no caso do ge- 
rador de som para o TK-85)? 

Por ultimo, gostaria tambim de saber 
qual a real compatibilidade do TK2000 com 
o Apple? Qual a diferenga entre os circuitos 
eletronicos e as diferengas do programa resi- 
dente na ROM? 

Reconhego que o equipamento, por ser 
um langamento, deva enfrentar certos pro- 
bleminhas, e 6 por isso que escrevo, na ten- 
tativa de resolver as principals duvidas dos 
novos usuirios: 

— 64 K de RAM com ROM inclufda? 

— Compatibilidade de hardware/software 
com o Apple? 

— Manual ticnico quando? 

Fernando S. Osdrio 
Porto Alegre - RS 

Remetemos suas dftvidas para a Microdi- 
gital, e esta nos enviou a seguinte resposta: 

"Realmente, o mapeamento esti certo, 
pois a ROM esti inclu Ida nos 64 K de RAM, 
mas k possfvel desfrutar os 64 K de RAM 
usando-se a linguagem Assembler, o que esti 
explicado no manual do TK2000 Color que 
esti sendo enviado aos usuirios desde a se- 
gunda quinzena de junho. 

A compatibilidade do TK2000 Color 
com o apple s6 existe em Applesoft BASIC, 
isto 6, todos os programas em BASIC do 
Apple rodam no TK2000 e vice-versa. A di- 
ferenga bisica dos programas residentes na 
ROM k o enderegamento." 

Ricardo Tondowski 

Assessor da Diretoria da Microdigital 



MS AGRADECE 



(...) Baseado nas informagoes obtidas 
atravis de MICRO SISTEMAS, ji comprei o 
micro AS-1000. Recebi exatamente o que 
eu queria receber: enderegos, dados ticnicos 
etc. Fui ao Rio de Janeiro, na Engebris (fa- 
bricante do AS-1000) e acabei comprando o 
equipamento (...). Agradego, mas agradego 
mesmo. Muito, muito. Continuem assim. Es- 
se 6 um pa pel bonito de imprensa. 

Antonio Carlos Caiado Pereira 
Sao Joao Del Rei - MG 
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A tftulo de colaboragao, informo d MI- 
CRO SISTEMAS qua foi levado ao ar, aqui 
em Belo Horizonte, pela R£dio Universidade 
FM Stereo (106.1 MHz), da PUC, o primeiro 
programa de Inforrrrftica no radio. Trata-se 
do Micro-Show, que esta sendo transmitido 
todos os domingos £s 18 horas. O programa 
Micro-Show, que transmite software enviado 
pelosouvintes, tern sido um sucesso. 

Marcio Gomes 
Belo Horizonte — MG 



PRESTAQAO DE SERVigOS 

L / 



Sendo leitor desta conceituada revista 
(na minha opiniao, a melhor nogfinero), ve- 
nho tentar a minha ultima esperanga de re- 
solver o problema do meu CP-200, pois j£ 
considero um caso quase perdido: meu CP- 
200, que esta fora da garantia, apresen- 
tou defeito. Fui ao Rio de Janeiro e o en- 
treguei a firma Clappy que prometeu con- 
serta-lo em 15 dias, no maximo. Resultado: 
entreguei o computador na Clappy em 16/ 
12/83 e retirei-o em 21/03/84, sem que te- 
nha sido feito o mfnimo possfvel no equipa- 
mento. Alegagao: sd estamos consertando 
computadores de maior porte (?). Me indi- 
caram a firma CSM, que prontamente rece- 
beu o aparelho e prometeu con$erta-lo em 
10 dias. Resultado: receberam o micro em 
21/03/84 e eu fui busca-lo no dia 31/05/84, 
tamb6m nas mesmas condi goes, isto 6, sem 
solugao. Alias, havia apenas uma pequena 
diferenga: faltava o Cl 74LS165, que afir- 
maram estar queimado. 

Solicito uma ajuda e que esta carta seja 
publicada para que talvez algudm se interes- 
se pelo problema, pois nSo tenho condigao 
de ficar viajando sem solucionar nada. Afi- 
nal, ]6 fazem seis meses que me enrolam : 
nao sei se por incompetencia da prestagao 
de servigos aos usu4rios, ou da firma que 
n§o fiscaliza tais fatos. 

Jefferson de Oliveira e Silva 
Volta Redonda — RJ 

Como 6 no ao costume, Jefferson, man- 
demos a sue carta para a Clappy Computa- 
dores e Sistemas Ltda. e para a CSM — Co- 
mercial Sistemas Manutengio Ltda. Agora 
reproduzimos a resposta de ambes: 

"Revendo nossos registros, verrficamos 
que o CP-200 do Sr. Jefferson de Oliveira e 
Silva, de slrie 4079, foi aceito para conserto 
em nossa empresa em 16/12/83 pela note 
fiscal 1431, co mo equipamento fora da ga- 
rantia. 

Devido ao nao recebimento dot compo- 
nents! eletrdnicos da Prol6gica, necetsirios 
ao reparo, apesar de reiteradas solicitagdes 
ao fabricante, informamos ao clianta Jeffer- 
son am 10/02/84 qua o seu equipamento 
nio podaria sar raparado am nossa amprasa. 
O clianta somente procedeu a ret i rad a do 
aparelho am 21/03/84 pela nota fiscal 2487. 
Portanto, a partir desta data terminou nossa 
participagao no caso, como alifis o pr6prk> 
clients relata am sua carta. 

A falta da componantas alatrdnicos do 
CP-200 nio s6 nos faz nao acaitar novos 
reparo s como tamb4m paralizarmos a sua co- 
rn ere ia I izagao. Lamentamos profund am ante 
esta fato, mas apesar da nossos esforgos nao 
obtivamos maios junto ao fabricante para o 
reparo do equipamento." 

Roberto Grensell 

Coordenador da Area da Computadores da 
Clappy 

'Tamos a esclarecer qua recebemos o 
equipamento do Sr. Jefferson da Oliveira a 
Silva, nosso estimado clianta, com pandas 



avarias a ponto de ser necessArio a troca da 
10 CIs da placa de circuitos impresses. Mas- 
mo assim nao logrou bom funcionamento. 
£ disciplinar am nosso laboratbrio afetuar 
um exaustivo taste da confiabilidada a cad a 
troca de components, o que 6, via da regra, 
um teste demorado. A cada teste, o equipa- 
mento apresentava um novo defeito. J4 tf- 
nhamos dscidido efatuar a troca da placa 
quando o Sr. Jefferson resolveu retirar o 
aparelho, reconhecidamento pelo longo 
tempo decorrido. 

O Sr. Jefferson nao nos procurou dire- 
tamente e preferiu apelar para esta coluna, 
julgando-se, presumivelmente, injustigado. 
Ao recebermos a carta enviada por MICRO 
SISTEMAS, entramos em contato com o 
Sr. Jefferson e prometemos trocar a placa 
do seu aparelho sem mais delonga e sem 
qualquer bnus extra. Assim, seu aparelho ji 
se encontra pronto e i sua disposigao." 

J. A. Moura 
Diretor da CSM 



SUGEST0ES 



Muito apreciaria ver publicado em MS 
um trabalho sobre uma interface para a re- 
cepgao de sinais CW (telegrafia), utilizdvel 
na linha Sinclair. 

Galba Jos6 C. de Albuquerque 
Caruaru — PE 

Me disseram que o Cur so de BASIC de 
MS foi excelente, portanto, sugiro que o re- 
pitam, pois vdrios amigos meus (al6m de 
mim) nao tiveram a felicidade de conhecer 
MICRO SISTEMAS desde o nP 1. 

Jorge Pablo Zapata Rivera 
Salvador — BA 

Gostaria de sugerir a publicagao de um 
mapa da memdria (ROM e RAM) — com ro- 
tinas e sub-rotinas, comandos etc. - dos 
equipamentos competfveis com o TRS-80 
modelo III (e I), para fadlitar a programa- 
gao em linguagem de miquina, pois os fabri- 
cantes nao divulgam estes enderegos. 

Jos4 Antonio Biazetti 
Jau - SP 

Parece que voces estao deixando de pu- 
blicar programas para a HP-41 C/CV. Sugiro 
mais artigos, principalmente sobre hardware. 
Gostei muito da quant idade de programas 
para o Apple. 

Ana Claudia Izumi Fukuda 
Rio de Janeiro — RJ 

(...) Quero dar-lhes a seguinte sugestao: 
cortcurso entre os leitores de MICRO SISTE- 
MAS, dividindo-se estes por equipamentos: 
usuSrios da linha Sinclair; Apple e TRS-80. 
Os usudrios concorrentes teriam que apresen- 
tar uma colaboragao enquadrada em um des- 
tes tipos: IP) Jogos — 2P) Programa utilitd- 
rio — 3P) Programa aplicativo. Os sen ho res 
premiariam os trds melhores programas para 
cada linha e tipo (para cada linha nova pes- 
soas premiadas: tres de cada tipo de progra- 
ma). E depois voces publicariam, em uma 
"EdigSo Especial", os programas wncedores. 
Josd de Lima H. Neto 
Campinas — SP 



Envie sues sugect&es para MICRO SISTE- 
MAS. Elas serio anotadas em nossa pauta a 
procurare mos, na medida do poufvel, viabi- 
lizi-las. 



MS E FEITA 
PARA VOCE 
PARTICIPE COM 
SUA OPINIAO 

Escreva-nos di- 
zendo qual a sua 
3rea de interesse, 
conte-nos tam- 
Wm as suas expe- 
riencias com seu 
micro, o que 
voce quer ver 
publicado em MS, o que voce acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para voce. 

E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opini3o para Redagao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Sao Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 -Centro - CEP 20030 - 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 - SSo Paulo - SP. 
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Uma descriqao detalhada dos coma nd os PDR! VE e SYSTEM do NEW DOS/80 e ainda 
um exemplo de aplicagao atraves de um programa para conversao em outros si sterna s 



Dois importantes 
comandos do NEWDOS 



Renato Degiovani 



PDRIVE[ F senha!Ddni F Cdn2C=dn3DDC F TI=caracDC F TD=caracDC F TC=valorD 
C p SPT=valor DC F TSR=val or DC , GPL=va 1 or DC ,DDSL=val or D 
CDDGA=va 1 or DC , AD 



Figura 2 



PDR I VE , 0 

0# TI=A,TD=E,TC=40,SPT=i8 F TSR=3,GPL=2,DDSL=i7,DDGA=2 
i* TI=A , TD=E ,TC=40,SPT=i8 F TSR=3,GPL=2, DDSL=i 7 , DDGA=2 

2 TI=A , TD=E F TC=40,SPT=i.8,TSR = 3,GPL=2, DDSL=i 7 , DDGA=2 

3 TI=A , TD=E r TC=40„ SPT = i 8 , TSR=3,GPL=2 , DDSL = i 7 , DDGA=2 

4 T I =AM , TD=E , TC=40 , SP T=i 0 , TSR =3 F GPL-2 , DDSL. = i 7 , DDGA=2 

5 T I=A F TD=A , TC=40 , SPT=i 0 , TSR =3 r GPL=2 F DDSL = i7 , DDGA=2 

6 TI = AK , TD=E , TC=35 , SP T=i 8 , TSR = 2 , GPL=2 „ DDSL = i 7 , DDGA=2 

7 T I = A , TD=C , TC=80 , SPT=20 , TSR=2 , GPL=2 , DDSL=i 7 , DDGA=2 

8 T I=D , TD=C ,TC=80,SPT=20,TSR=3 r GPL=2,DDSL=i7, DD6A=2 

9 T I =A F TD=G r TC=80 r SPT = 36 r TSR =2 , GPL =8 F DDSL = i 7 , DDGA=2 



O uase todos os iniciantes na 
microcomputa^io (e tambem 
vririos profissionais da drea) 
mantem seus ‘DOS’ preferidos 
em pemianente estado de imutabilidade. 
Isto decorre principalmente do receio de 
causar ‘danos’ aos sistemas, pois sabe-se- 
la as dificuldades em conseguir uma ou- 
tra cdpia. A bem da verdade, a prdtica 
do backup n3b possui muitos entusias- 
tas aqui no Brasil. 

Muita gente boa tern ficado a merce 
dos genios criadores de sistemas que 
configuram suas maravilhas a fun de 
atender ao maior numero de usudrio/ 
miquinas. 0 resultado disso pode ser (e 
invariavelmente e) um sistema bastante 
generico e que acaba nSo deixando 
transparecer as suas reais possibilidades. 

Para minimizar um pouco esta situa- 
5 So, vamos abordar neste artigo dois co- 
mandos bastante interessantes do 
NEWDOS80: o comando SYSTEM e o 
comando PDRIVE. 

Com o PDRIVE, que 6 um poderoso 
formatador de saidas, o usuario poderd 
converter programas e arquivos entre o 
NEWDOS e o TRSDOS/DOS 500/ CI- 
RANDA, DOSPLUS, DIGDOS etc., 
ale'm de compatibilizar toda a sua biblio- 
teca com a de seus amigos, pois, com 
ele, discos do DGT-100 podem ser lidos 
pelo CP-500 e vice-versa. 

0 comando SYSTEM, por outro la- 
do, permite que oNEWDOS seja reconfi- 
gurado com a modifica 9 §o de varios pa- 
rametros. tais como: cursor (tanto cara- 
ter quanto condi^ao de intermitencia ou 



Figura I 



velocidade de REPEAT), cheque de se- 
nhas de acesso ou cddigos especiais, veri- 
fica 90 es e testes de leitura/grava 9 ao, 
formata 9 ao diferenciada etc. 

Ha muita coisa a ser feita, ou pelo 
menos tentada, quando se dispde de 
algum tempo e disposi 9 ao. Uma boa 
medida inicial 6 providenciar um disco 
(devidamente duplicado) e tentar partir 
para a experimenta 9 ao. 

1 - O COMANDO PDRIVE 

O sistema NEWDOS possui 10 
op 90 es de configura 9 ao de drives, ou 
seja, 10 PDRIVES. Cada op 9 ao esta 
associada as caracteristicas fisicas dos 



drives implementados no equipamento. 
Como s6 podem ser usados no mdximo 
quatro drives, sobram ainda seis configu- 
ra 9 oes a dispos^ao do usuario que pode, 
atraves deles, simular qualquer tipo de 
equipamento. 

Para saber como o sistema estd orga- 
nizado, basta entrar com o comando 
PDRIVE, 0. Isso produzira uma listagem 
dos parametros dos 10 comandos 
PDRIVE e seus respectivos conteudos, 
bem como a demarca 9 ao dos drives em 
uso pelo sistema (essa distin 9 ao 6 feita 
com um asteristico ao lado do numero 
do drivre). Veja a figura 1 , a qual mostra 
um sistema gendrico com dois drives. A 
sintaxe geral do comando 6 mostrada na 
figura 2. 
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os parAmetros do pdrive 



A - 


5.25" , 


densidade 


simples , 


face 


simples 


B - 


8" 


densidade 


simples , 


face 


simples 


C - 


5.25", 


densidade 


simples , 


face 


dupla 


D - 


8" 


densidade 


simples , 


face 


dupla 


E - 


5.25" , 


densidade 


dupla , 


face 


simples 


F - 


8" 


densidade 


dupla , 


face 


simples 


G - 


5.25" , 


densidade 


dupla , 


face 


dupla 


H - 


8" 


densidade 


dupla , 


face 


dupla 



Figura 3 


PDRIVE 0* 


TI=A,TD=E,TC=40,SPT=i8,TSR=3,GPL=2 r DDSL=i7,DDGA=2 


Figura 4 


PDRIVE 8 
PDRIVE 9 


TI=AIh,TD=E,TC=40 r SPT=i8,TSR=2 f GPL=6,DDSL=17,DDGA=2 
TI=A,TD=E r TC=40,SPT=18,TSR=2,GPL=2, DDSL=36 , DDGA=2 ■ 



Figura 5 



Cada PDRIVE possui nove parame- 
tros que se relacionam com a configura- 
5 S 0 hard e soft dos discos. Eles podem 
ser alterados individualmente, e a sua 
manipula 9 ao 6 que permite a simula^ao 
de diversos sistemas. As especifica 95 es 
dnl, dn2 e dn3 estao relacionadas aos 
drives que receberao as modifica 96 es. 
Vejamos cada um deles. 

• TI =car£ter 

Este parametro esta relacionado com 

0 tipo de interface que integrao sistema, 
podendo, portanto, ser representado por 
mais de um cardter.Ostipospossiveis sao: 
A - corresponde & interface standard; 

B — especifica interface OMIKRON; 

C - especifica interface PERCOM; 

D - especifica interface APPARAT; 

E - especifica interface LNW; 

H - apenas para leitura de discos de 8 ”, 
onde deve haver mudan 9 a de velocidade 
na leitura entre os drives; 

1 - determina como 1 a numera 9 ao do 
primeiro setor de cada trilha (essa 6 uma 
caracteristica do TRSDOS); 

J - determina como 1 a numera 9 <io da 
primeira trilha do disco; 

K - Identifica o disco onde a trilha 0 
estd formatada de modo diferente das 
demais; 

L - permite que os drives de 80 trilhas 
(dupla face) leiam discos formatados 
com 40 ou 35 trilhas; a cabe 9 a de leitura 
avan 9 a duas trilhas de cada vez; 

M — identifica o disco standard do 
TRSDOS. 

• TD=cardter 

Este parametro especifica o tipo de 
disco que estd sendo usado no drive, 
segundo a tabela que esta na figura 3. 

• TC=valor 

Especifica a quantidade de trilhas 
que o disco possui. Se o parametro TI 
possuiriaop 9 ao K, isso significa que, para 
40 trilhas, TC deve ser igual a 40; caso 
contrario, para 40 trilhas TC deve ser 
igual a 39. 

• SPT=valor 

Determina a quantidade de setores 
por trilha do disco. 

• TRS=valor 

Quantifica o avan 90 da cabe 9 a de lei- 
tura do drive segundo as op 9 Ses: 

0-5 m/s 
1 — 10 m/s 
2-20 m/s 
3 — 40 m/s 

• GPL=valor 

Quantidade de granulos por LUMP 
na organiza 9 ao do disco. Esse valor pode 
variar de 2 a 8 , e fora do NEWDOS pode 
ser interpretado como granulos por 
trilha. 

• DDSL=valor 

Numero do LUMP (ou trilha) onde 
inicia o diretorio do disco. 

• DDGA= valor 



Quantidade de granulos reservados 
para o diretdrio quando da formata 9 ao 
do disco. 

• A 

Este parametro, se constante na lista 
do PDRIVE, provoca a imediata imple- 
menta 93 o das modifica 96 es dos outros 
parametros; do contrdrio, tais modifica- 
9 des s 6 estarao disponiveis apos um 
RESET do sistema. 

O PROGRAMA CONV/BAS 

O programa CONV/BAS, cuja lista- 
gem incluimos neste artigo, 6 um exem- 
plo das aplica 96 es do PDRIVE na simu- 
la 9 ao de outros sistemas. Ele deve ser di- 
gitado no BASIC do NEWDOS, prestan- 
do-se, no entanto, a uma serie de conver- 
sdes. Foi concebido originalmente para 
o CP-500, mas pode sofrer modifica 9 bes 
e rodar igualmente no DGT-100. E pre- 
ciso, porem, nao esquecer que um pro- 
grama convertido pode nao funcionar 
adequadamente fora de seu sistema de 
origem, e isto 6 mais evidente quando se 
trata de programas em linguagem de ma- 
quina. 

Vejamos, entao, como funciona o 
PDRIVE no CONV/BAS. O nosso siste- 
ma mestre, ou seja, o equipamento utili- 
zado, serd um CP-500 e, conseqiiente- 
mente, o PDRIVE 0 terd a configura 9 ao 
da figura 4. Simularemos um DOS500 
no PDRIVE 8 e um DIGDOS no PDRI- 
VE 9, com as seguintes configura 9 Ses 
mostradas na figura 5.: 

Quando fizermos uma conversao, 
bastara especificar, no comando COPY, 
o SPDN (Source PDrive Number) e o 



DPDN (Destination PDrive Number). 
Assim, para copiar um programa do 
DOS 500 para o DIGDOS, por exemplo, 
devemos determinar SPDN- 8 e DPDN 
= 9. Com isso, o NEWDOS do CP-500 
lera o programa como se fosse um DOS 
500, gravando-o como se fosse um 
DIGDOS. 

Como j & dissemos, uma conversao 
pura e simples nSo 6 garantia de 
que o programa ira funcionar adequada- 
mente no seu novo sistema. £ necessario 
testar o programa inumeras vezes ate se 
ter certeza de seu desempenho. £ obvio 
que, quanto mais simples o programa, 
mais chances tern a conversao de resul- 
tar 100 % perfeita. 

Um fato porem nao pode ser esque- 
cido: apesar do BASIC ser universal, as 
vdrias versSes BASIC do TRS nem sem- 
pre se equiparam, pois os fabricantes de 
sistemas gostam de fazer algumas modi- 
fica 9 bes em rela 9 ao aos seus concorren- 
tes. Para facilitar a conversao, portanto, 
trazemos no quadro anexo uma tabela 
de compatibilkhde entre o BASIC do 
NEWDOS e o do DOS500. 

O CONV/BAS, tal como listado aqui, 
funciona num CP-500 com um drive. 
Para dois drives basta alterar a linha 90 
para M$=“S=COPY, 0,1„... Ainda com 
rela 92 o a esta linha, os parametros do 
COPY significant 

• CBF (Copy By File): implica numa 
copia, a ser executada, de todos os ar- 
quivosdo diretorio. 

• CFWO ( Check File With Operator): o 
sistema ira perguntar, arquivo por arqui- 
vo, se: deve ser copiado (Y )/ nao deve w 
ser copiado (N); deve reiniciar o proces-^ 
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DO IS IMPORTANTES COMANDOS DO NEWDOS 



so (R); todos os arquivos jd foram iden- 
tificados (Q). 

• NFMT (No ForMat): o sistema nao 
formatara o disco de destino, cabendo 
ao operador certificar-se de que o disco 
destino esta no padrao requerido pela 
conversao. 



2-0 COMANDO SYSTEM 

0 comando SYSTEM permite que 
alguns parametros do NEWDOS sejam 
alterados de forma a possibilitar uma 
melhor performance do sistema como 
um todo. A razao de ser do proprio co- 
mando se prende ao fato de que e prati- 
camente impossivel criar um sistema 
realmente integrado a todas as situa 9 des 
e configura 9 oes dos equipamentos exis- 
tentes. Dessa forma, o NEWDOS consti- 
tui-se num sistema flexivel, podendo 
amoldar-se a qualquer utiliza 9 ao especi- 
fica e aos mais exigentes usuirios. E im- 
portante, porem, nunca esquecer que 
qualquer altera 9 ao, via comando 
SYSTEM, so poderd ser feita ap 6 s o 
RESET do micro. 

A sintaxe geral para o comando esta 
na figura 6 . Se for dado, por exemplo, o 
comando SYSTEM, 0, o sistema apenas 
listard os parametros e seus valores cor- 
respondentes. 

OPCOES DO COMANDO SYSTEM 

• AA=Y ou N 

Este parametro esta relacionado a re- 
quisi 9 §o, ou nao, de uma senha de aces- 
so. Se AA=Y, comandos como SYSTEM, 
PDRIVE, PURGE etc. irao necessitar da 
introdu 9 ao de uma senha que serd a 
mesma do disco. No entanto, se AA=N, 
nao havera necessidade da senha ser digi- 
tada. Por exemplo: para AA= Y, o co- 
comando PURGE sen* PURGE, SENHA 
JO; para AA-N, o comando PURGE serd 
PURGE, 0. 

• AB=Y ou N 

0 parametro AB diz respeito ao mo- 
do de opera 9 ao do disco. Se AB-N, o 
sistema opera normalmente, sem ne- 
nhuma restri 9 ao. Por outro lado, se AB= 
Y, o sistema opera apenas em modo 
RUN, ou seja, permite apenas a execu 9 ao 
de programas. Obviamente que tal 
op 9 ao pressupoe um comando AUTO 
implementado para que o boot do sis- 
tema nao acarrete a men sagem RUN- 
ONLY STOPPED!! PRESS R’ FOR 
RESET, e em decorrencia disso entre 
num bop do qual jamais saira. 

A conseqiiencia mais imediata desta 
op 9 §o 6 a desativa 9 ao dos grupos de te- 
clas 123 (DEBUG), JKL (COPY para 
impressora) e DFG (mini NEWDOS), 
assim como da tecla BREAK. Alem dis- 
so, nao 6 permitido nenhum comando 



SYSTEM, Csenha: UdniC ,AA=Y/N3C ,AB=Y/N][ , AC=Y/N3C , AD = Y/NDC , AE=Y/N.1 
C ,AF=Y/N3t ,AG=Y/N3C,AI=Y/N]C,AJ=Y/NDC,AL=val DC,AM=val D 
C , AN=va 13C,AO=val3C,AP=val3C,AQ=Y/NDC,AR=Y/NDC,AS=Y/N3 
C,AT=Y/N3C,AU=Y/N]C,AV=val 3C,AW=val 1 C , AX=va 1 1 t , AY=Y/N 1 
C , AZ = Y/NDC ,BA=Y/N3C ,BB=Y/N:C ,BC=Y/N3C ,BD=Y/N][! ,BE = Y/NJ 
C ,BF=Y/NDC ,BG=Y/NDC,BH=Y/NDC ,BI=val D C , B J=va U C , BK = Y/N D 



Figura 6 



direto, e se um LOAD, sem as op 96 es R 
ou V, for tentado, o sistema simples- 
mente o rejeitard, acusando a ilegalidade 
do comando direto. 

• AD-Y ou N 

O parametro AD estd relacionado ao 
grupo de teclas JKL que, se pressionadas 
conjuntamente, produzem uma cdpia da 
tela de video na impressora. Se AD=Y, 
essas teclas estarao ativadas e se AD-N, 
nao serd possivel ativar JKl. 

• AE=Y ou N 

Este parametro esta relacionado ao 
comando utilitario DEBUG, o qual faz 
parte do sistema NEWDOS/80, sen do 
um poderoso monitor para linguagem de 
mdquina. A sua ativa 9 ao pode ser efe- 
tuada pelo grupo de teclas 123; se 
AE=Y, o grupo estara ativado e se 
AE=N, o grupo estari desativado. 

• AF=Y ou N 

0 parametro AF ativa e desativa o 
grupo de teclas DFG, responsavel pelo 
acionamento do mini NEWDOS. 

• AG=Y ou N 

0 parametro AG presta-se a uma alte- 
ra 9 fo da tecla BREAK, sem no entanto 
desativa-la. Se AG= Y, a tecla 6 conside- 
rada como um INPUT normal e seu 



valor 6 1. Se, por outro lado, AG= N, 
BREAK nao i considerada uma tecla 
normal e seu valor de INPUT t modifi- 
do para 0 . 

• AJ=Y ou N 

Responsdvel pelo desvio do SCAN do 
teclado para uma rotina prdpria do 
NEWDOS. Isso significa que ao ocorrer 
uma interrup 9 ao para leituia das teclas, 
tal fun 9 §o sera desviada da sua trajetdria 
original, permitindo nao s 6 o controle 
sobre a repet^ao das teclas como tam- 
b^m sobre um dos processos de reco- 
nhecimento dos grupos de teclas 123, 
JKL e DFG. 

Se AJ=N, a rotina de intercep 9 ao do 
NEWDOS estara ativa. pordm se AJ=N, 
esta rotina nao serd utilizada e, aldm 
disso, o controle de repet^ao das teclas 
passara automaticamente para a ROM, 
e o reconhecimento dos grupos de teclas 
JKL, 123 e DFG dependera apenas das 
interrup 9 oes normais do sistema. Para 
for 9 ar um AJ- N, basta manter pressio- 
nada, durante o RESET, a tecla seta 
para cima. 

• AL=1 a 4 

Este parametro especifica a quanti- 



Tabela de compatibilidade 



entre BASIC do NEWDOS 
e do DOS500 



1 - Retoma ao DOS quando houver al- 
gum eno de E/S e imp-rime a men sagem 
TAREFA ABANDONADA: 

. DOS500 - CMD “A” 

. NEWDOS - nao tcm equivalente 

2 - Ativa e desativa a tecla BREAK: 

.DOS 500 - CMD “B’\ “ON/OFF” 

. NEWDOS - CMD “BREAK, Y/N” 

3 - Lista o dixetorio do disco : 

. DOS500 - CMD “D:0” 

. NEWDOS - CMD “DIR” 

4 - Executa um comando do DOS : 

. DOS500 - CMD “I”, “comando” 

. NEWDOS - CMD “comando” 

5 - Carrega uma sub-rotina em linguagem 
de mdquina: 

. DOS500 - CMD “L”, “rotina” 

. NEWDOS - CMD “LOAD, rotina" 



6 - VeriOca status da impressora: 

. DOS500 - CMD *T”, string 

. NEWDOS - PEEK (& H37E8) 

7 — Liga o relogio na tela: 

. DOS500 - CMD “R” 

. NEWDOS - CMD “CLOCK, Y” 

8 - Desliga o relogio na tela: 

. DOS500 - CMD “T” 

. NEWDOS - CMD “CLOCK, N” 

9 - Executa a pesquisa de palavras ou va- 
riaveis no texto residente: 

. DOS500 - CMD “X”, objeto 
. NEWDOS - REF objeto 

10 - Duplica saida de vi'deo para impres- 
sora: 

. DOS500 - CMD “Z”, “DN/OFF” 

. NEWDOS - CMD “ROUTE...” 
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dade de drives instalados no equipamen- 
to. Deve conter sempre a quantidade 
real para evitar que o sistema perca tem- 
po checando drives inexistentes. Seu 
valor nunca deve exceder a 4. 

• AM=0 a 255 (0= 256) 

Esta 6 a quantidade de tentativas de 
leitura do disco ate que um erro E/S seja 
declarado. Seu valor original 6 10. 

• AN=0a 255 

Numero de default do drive para o 
comando DIR. 

• AO= 0 a 255 

Durante a cria^ao de um arquivo sem 
especificagao de drive, o sistema procu- 
re, em primeiro lugar, por um arquivo 
com o mesmo nome. Nao encontrando, 
o sistema ira procurar por uma area livre 
para a criafjao do arquivo lendo os drives 
a partir do drive constante em AO. Ne- 
nhum drive com numera^ao menor a 
AO sera checado quanto ao espa 90 livre 
para aloca^ao de programas. 

• AP= endere^o 

Se for diferente de zero e correspon- 
der a uma posi 9 §o real de memoria, 
este endere 90 sera assumido como o 
HIMEM do sistema e armazenado no 
endere 90 44 1 1 H (modelo I=4049H). 

• AQ-Y ou N 

Parametro que ativa (AQ= Y). ou de- 
sativa (AQ= N) a tecla CLEAR. £ neces- 
sdrio, porem, que a op 9 ao AJ seja igual a 

Y. 

• AR= Y ou N 

Condi 9 §o para verifica 9 ao da senha 
quando usado o comando COPY nos 
formatos 5 e 6 . Se AR= Y e AA= Y, a se- 
nha seratestada;caso contrario (AR= N), 
ela nao sera testada. 

• AT=Y ou N 

Chave de ativa 9 ao de modo de grava- 
9 ao para opera 96 es CHAIN (AT-N). 

• AU=Y ou N 

Chave liga/desliga para a repeti 9 ao de 
teclas. Se AU=N, a repet^ao das teclas 
passa a ser comandada pela rotina inter- 
na da ROM. 

• AV=0 a 255 

0 valor de AV corresponde a quanti- 
dade de tempo (multiplicada por 25 ms) 
que a repeti 9 ao de teclas esperara para 
entrar em a 9 ao apos uma tecla ter sido 
pressionada. 0 intervalo entre cada repe- 
ti 9 §o tambdm sera fun 9 ao desse valor. 

• AW=Oa255 

Quantidade de vezes em que o siste- 
ma escreve e verifica as informa 9 oes no 
disco. Este parametro opera em conjun- 
to com AM, informando ao operador 
sempre que um erro for detectado. Se 
AW for maior que 1, entao o sistema, 
em caso de erro, automaticamente ten- 
tard uma nova grava 9 ao. 

• AX=0 a 255 

Valor mais alto do codigo ASCII para 
impressao de caracteres pela rotina 



CONV/BAS 



i 'XXXXXXXXXZXXXXXXXZZXZXXXXXXXXXXXXXXXZXXXXZXXXXXXXXXXXXXZZZXX 



2 'XCONU/BAS programa, para conversao de X 

3 ’X argu i vos entre os sistemas X 

4 ’% D0S500 <-> NEUDOS <-> DIGDOS, X 

5 ’% desenvolvido em ABRIL, de 19R4 X 

6 ’X no CPD da MICRO SISTEMAS. X 

7 '% V- 

8 ’X Renato Deg i ovan i 2 



9 ' X X 7. X X X X X X X X X X X X X X X X X X X X X X X 7. X X X X X X X X X X X X X X X X X X X X 7. X X X X X X X X X X X X 

10 CLEAR 100 : CLS : CMD"BREAK , N" : POKE 16‘ 6,5 

20 PRINT STRING! ( 64 , 37 ) ; "M ICRO SISTEMAS" ■ CH <b(202>;"C 0 N V / B 
A S " ; CHR! (202) ; "MICRO SISTEMAS"; STR ING! (64,37) : PRINT 
30 CMD"PDR I VE , NFUD0S80: 0 ,8 , T I=A TM , TD=E , TC=40 , SPT=iB , TSR=2 , GPL=A , 
DDSI. = 17, DDGA=2 , A" : CL.S 

40 CMD"PDR I OE , NEWD0S80 :0,9,TI=A,TD=E,TC=40,SPT=18, TSR=2 , GPL =2 , DO 
SL=36 , DDGA=2 , A" : CLS 

50 PRINT TAB ( 9 ) "Este programa copia arguivos fazEndo as devidas 
conver-soes. 0 CONO/BAS nao guest iona se o disco esta' ou nao fa 
rmata- do." 

60 PRINT 3576 , "opcoes s " ; 3704, "<1> NEUDOS > D0S500","<2> DOSS 

00 > NEUDOS", "< 3 > NEUDOS > DIGD0S","<4> DIGDOS — - > NEUDOS 

" , " < 5 > D0S500 > DIGDOS", "<6> DIGDOS > D0S500","<7> BASIC" 

70 U*=INKEYl : IF U!>"7" OR IJK"i" THEN 70 

80 U=ASC ( IJ! ) -48 : ON U GOSUB 110,120,130,140,150,160,170 

90 M4="S=C0PY,0,0, , CBF , CFUO , NFMT , SPDN="+S4+" , DPDN="+ T! 

100 CLS : PRINT 3192, "disco fonte > ";F%, "disco destino > 

";D%; 3640, : CMD M! : END 



110 


F%=' 


'NEUDOS" : 


Di="DOS500" : 


Sl=' 




: T !="8" 




RETURN 


120 


F!=' 


'D0S500" : 


D!="NEUD0S" : 


S4 = ' 


'8" 


: T!="0" 




RETURN 


130 


F!= / 


'NEUDOS" : 


D!="DIGDOS" : 


S!=' 


If 


: T!="9" 




RETURN 


140 


F!=' 


'DIGDOS" : 


D4="NEUD0S" : 


S!=' 


'9" 


: Ti="0" 




RETURN 


150 


FS=' 


'D0S500" : 


D!="D1GD0S" : 


S!=' 


'8' 


: T!="9" 




RETURN 


160 


F!=' 


'DIGDOS" s 


D!="D0S500" : 


Sl=' 


'9" 


: T!="8" 




RETURN 


170 


POKE 16916,0 


: CMD"BREAK , Y" 


: CLS 


: END 







PRINT do NEWDOS. Acima desse valor 
os caracteres sao substitui'dos por espa- 
90 ou pontos. 

• AY=Y ou N 

Chave liga/desliga para a questao 
DATA/HORA quando o micro e ligado 
(a indaga 9 ao s 6 sera feita se AY=Y). 

• AZ=Y ou N 

Chave liga/desliga para a questao 
DATA/HORA quando o micro e resse- 
tado. Sempre que AZ for igual a Y, toda 
vez que o micro for ressetado o sistema 
questionara a respeito da data e da hora. 

• BA=Y ou N 

BA= Y bloqueia todas as saidas de 
impressao ate que o operador execute 
um ROUTE, CLEAR ou ROUTE.DO. 
BA= N cancela este bloqueio. 

• BB=Y ou N 

0 parametro BB controla a interrup- 
9 ao do relogio do micro (apenas modelo 
III). Se BB=N, as interrup 9 oes serao exe- 
cutadas 60 vezes por segundo e se BB=Y, 
as interrup 9 oes passarao a 50 vezes por 
segundo. 

• BC=Y ou N 

BC=Y permite que uma opera 9 §o 
CHAIN seja interrompida pelo operador 
para que haja uma pausa ou cancelamen- 
to. 

• BD=Y ou N 

BD= Y da ao operador a chance de 



anular o comando AUTO durante um 
RESET, bastando para isso manter a te- 
cla ENTER pressionada. BD=N nao per- 
mite esta facilidade. 

• BE=Y ou N 

Com BE= Y podemos executar o co- 
mando R do DOS. BE= N nao permite a 
repeti 9 ao do ultimo comando do DOS 

(R). 

• BG-Y ou N 

Se BG= Y, as informa 9 oes digitadas 
pelo teclado serao admitidas em caracte- 
res minusculos. Ja se BG=N, as informa- 
9 oes serao em caracteres maiusculos. 

• BH-Y ou N 

Chave liga/desliga do cursor intermi- 
tente. Com BH=Y o cursor sera piscante 
e BH=N fara com que ele seja estatico. 

• BI=0 a 255 

C 6 digo do carater do cursor. Se 
BI=0, o sistema assume o valor standard 
(modelo 1—95 e modelo 111=176). 

• BJ=0 a 255 

Valor de medi 9 §o ciclica para uma 
UCP que tenha sofrido altera 9 &es de 
hardware com conseqiientes mudan 9 as 
na velocide do clock. 

• BK=Y ou N 

BK= N nao permite que o comando 
WRDIRP e as op 9 oes W e C do DIR- 
CHECK sejam executadas. BK= Y nao 
interfere nestas opera 9 oes. 
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Decodificador de cores 
para componentes eletronicos 



Na SeqSo de Cartas de MS n? 26, o leitor Alexandre C. Machado nos relatava a sua dificuldade em memorizar 
o cddigo de cores de resistores e capacitores, solicitando entSo um programa que descobrisse o valor 
do resistor e do capacitor, dando entrada no micro s6 com o c6digo de cores. Embora tenhamos remetido 
todas as colaborapoes que nos chegaram para o Alexandre, por uma questSo de espaco, selecionamos apenas 
uma para publica^ao. Deixamos, entretanto, aqui registrados os nossos agradecimentos aos leitores 

que enviaram suas colaborapdes. 



O programa a seguir, destina- 
do a micros compativeis com a 16gica 
Sinclair, ocupa 16 Kb de memdria RAM 



Nelson Hisashi Tamura 



e opera com SLOW. Sua digita^So 6 sim- 
ples, pois 6 escrito totalmente em lin- 
guagem BASIC. Atem disso, ele i auto- 



explicativo quanto & forma de opera^o, 
sendo indicado principalmente para im- 
ciantes na irea de eletrdnica. 




1 REM 3SS 

5 SLOW 

10 LET E $ = " 



-1934- 



20 GOTO 2001 
30 CLS 

40 PRINT " i 
ADS (PF) " ; TAB 0 
50 PRINT , ," 

N* : " 




60 PRINT 
■ DIGITO. 

70 PRINT 1 

80 PRINT ‘ 

ITO 

90 PRINT 1 
100 PRINT 1 
ZEROS. . " 

110 PRINT 1 
120 PRINT 1 
ANCIA . . M 
130 PRINT ‘ 

140 PRINT ‘ 

0 " 

150 FOR X.=0 TO 2 

160 PRINT " | | 

170 NEXT X 

130 LET D = 15 

190 LET Z =6 

200 PRINT AT 15,15;" 



EITURA EM PICOFAR 
CAPACITOR - 1 1 










— B . 



T T 



210 FOR A = 1 TO 5 
220 PRINT AT 19,0; "OUAL A COR D 
A " A i FAIXh 

230 IF A < =2 THEN GOSUB 330 
240 IF A =3 THEN GOSUB 550 
250 IF A =4 THEN GOSUB 790 
260 NEXT A 
270 GOSUB 720 

230 PRINT AT C ■ 27 : "PF" ; AT 19.0; 



290 IF INKEY $="S" THEN GOTO 30 



300 PRINT AT C . 27 ; "Hi" I AT 19,0; 
"QUER OUTRh LEITURA ? " "S" " OU " 
"N" " " 

310 IF INKEY $="N" THEN GOTO 200 

0 

320 GOTO 230 
330 LET C = 16 

340 IF A =2 THEN LET D=15 
350 IF A =2 THEN LET Z=8 
360 LET G =27 
400 INPUT US 

_ 4 10 IF U $ = " DOUR ADO " THEN PRINT 

AT z G; " " ; AT c , D; " " 





420 


IF 


U $ = " PRET 0 " THEN PRINT AT 


2* DIG 


Z . G ; 


-0' 


.; AT C .. D .; " 0 “ 




430 


IF 


U$="MARR0M" THEN PRINT A 




T Z . G 


; "l" ; AT C , D; "l" 


N" DE 


440 


IF 


U $ = “ UERMELHO " THEN PRINT 




AT Z 


.. u , 


; “2"; at c , D; , •2 ,, 




450 


IF 


U $ = " LAP AN JA " THEN PRINT 


TOLER 


AT Z . 


G 


*3" ; AT C . D ; "3" 




460 


IF 


U $ = " AMARELO " THEN PRINT 




AT Z . 


G ; 1 


’4"; AT C . D : “ 4 " 


TENS A 


470 


IF 


U $ = " UERDE " THEN PRINT AT 




Z . G ; 


■*5‘ 


MAT C,D.; "5" 




430 


IF 


U $ = " AZUL " THEN PRINT AT 




Z . G ; “ 


6" 


; AT C,D;"6" 




490 


IF 


U $ = ‘ ' U 1 0 L ET A ' ’ THEN PRINT 




AT Z . 


G ; ' 


’7"; AT C,D;"7" 




500 


IF 


U$ = "CINZA" THEN PRINT AT 




Z , G ; 


"8' 


' ; AT C , D ; "S" 




510 


IF 


U$=" BRANCO" THEN PRINT A 



T Z . G; "9" ; AT C , D ; "9" 

520 IF U$="DQURADO" OR U$="PRET 
0" OR U $ = " iflARROM " OR U$="UERMELH 
0" OR U$="LARANJA" OR U$ = " AMAREL 
0" OR U$="0ERDE" OR U$="AZUL" OR 
U $ = “ U I OLET A " OR U$ = "CINZA" OR U 
$=" BRANCO" THEN RETURN 
530 GOSUB 350 
540 GOTO 400 
550 LET D =17 
560 LET B = 10 
600 INPUT US 
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610 IF U $ ="DOURADO " THEN PR IN' 
AT B .■ G } " " J AT L : i D i " “ 

620 IF U$ = ,, PRET O" THEN PRINT i 
B , G ; “ " ; AT C D ; " “ 

630 IF U$="MARROM" THEN PRINT 
T B . G ; " 0 " ; AT c , D ; " 0 " 

640 IF U $ = " UERMELHO " THEN PR II 



RT B , G 
650 IF 



HT B, 
660 
RT B , 
6 70 
B , G 
6S0 
B , G.i ” 
690 
0" OR 



11 0 0 1 1 ; RT C D ; ' 

U$="LARRN jfl" 

G; ”000"; RT C .D; " 000 " 

IF U$="AMAREL0" then print 
G ; ” 0000 " ; RT C.D; "0000" 

IF U $ = " UERDE" THEN PRINT RT 
" 00000 " ; RT C.D; "00000" 

IF U $ = " AZUL " THEN PRINT RT 
000000"; RT C.D; "000000" 

IF U$="D0URAD0" OR U$="PRET 
U$ = " MRRROM " OR U $ = " UERMELH 



THEN PRINT 
00 " 

THEN PRINT 
000 " 

THEN PRINT 
•• 0000 " 



0" OR U $ = " LRRRNJR " OR U$ = " AMAREL 
0" OR U$ =" UERDE" OR U$="AZUL" TH 
EN RETURN 
700 GOSUB 850 
710 GOTO 600 
720 INPUT U$ 

730 IF U$ = "UERMELHO" THEN PRINT 
RT 14, G; "250 U" 

740 IF U$=" AMARELO" THEN PRINT 
RT 14. G;" 400 U" 

750 IF U $ = " RZUL " THEN PRINT RT 
14, G; "630 U " 

760 IF U$ = " UERMELHO" OR U$="RMA 
RELO" OR U$="AZUL” THEN RETURN 
770 GOSUB 650 
760 GOTO 720 
790 INPUT U$ 

600 IF U $ = "PRET 0" THEN PRINT RT 



12 . G ; "20 ' « " 

610 IF U$ = "BRANCO" THEN PRINT R 
T 12 , G; " 10 ■/* " 

820 IF U $ = " PRET 0 " OR U$ = " BRANCO 
" THEN RETURN 
630 GOSUB 650 
840 GOTO 790 

650 PRINT RT 21.0; "ESTR COR NAO 
TEN, DIGITE DE NOUO" 

660 FOR N =0 TO 25 

870 NEXT N 

630 PRINT RT 21,0;" 

890 RETURN 
1000 CLS 

1010 PRINT TAB 3 ; "LEITURR EM OHM 
S" ; TAB 0; E$ 

1020 LET X =6 

1040 PRINT hT X , 6; " ua 

mam 

1050 PRINT RT X + 1 . 6 ; C $ 

1060 P R I NT RT X + 2,6; " B: 1K2B3H 



1070 PRINT RT 
X +4' .42; ' ' 

1060 PRINT RT 
1090 PRINT RT 



X + 1,6; C 
X+2 , 6; "| 

X+2 , 0 ; "1 

X + 3 . 6 ; C 
X + 4 . 6; "' 






1100 PRINT RT 12 . 0 ; " 1 B DIGITO" ; RT 
14 .3; "2* DIGITO" 

1110 PRINT RT 16 . 4; "N b DE ZEROS"; 
RT 13,7; "TOLERANC Ifl " 

1120 LET B $ = " ," 

1130 FOR R = 11 TO 3 

1140 IF R < =12 THEN PRINT RT R.3. 



MICROCOMPUTADORES 



iTTrPEQPLE 

Computacao 



• PROGRAMAQAO MICROS 
— BASIC 1 - Introducao 




— BASIC II - Avangado 


— Metodo Proprio de Ensino 


• INFANTO-JUVENIL (8 a 16 anos) 


— Professores Especial izados 


- BASIC 19/29 Grau 


— Apostilas Completas de Textos e Exercfcios 


— Criando com LOGO 

• USUARIOS DE MICROS 
— Microinformatica 
- VISICALC 


— 1 Micro para cada 2 alunos 

— N9 limitado de vagas / turma 






CAMPINAS 
SAO PAULO 
RIO DE JANEIRO 



- Rua Cesar Bierrenbach, 171 - Fone: 8-3608 

- Av. Rouxinol, 201 - Fone: 61-4595 

- Av. N. S. Copacabana, 1417 - Loja 313 - Fone: 521-1549 








DECODIFICADOR DE CORES 



B $ ; RT H . 11 
1150 IF P > 
NT PT H, 11 
1160 IF H > 
NT RT P , 14 
1170 PRINT 
1150 NEXT 
1190 PRINT 
T 13,21.;“® 
URPDO " ; PT 
“PRPTEPDO" 
1200 PRINT 
1210 LET Z 
1220 LET C 
1230 LET B 
1240 LET G 



1250 LET D 
1260 FOR F 
1270 PRINT 
R “ ; F ; “■ F 
1230 IF F = 



1290 

1300 

1310 



IF F = 
IF F < 
NEXT 



1320 LET G 
1330 LET D 
1340 GO SUB 
1350 PRINT 
EITURfl ? " 



; B $ PT r , 14 ; B$ 

=13 RND R < =14 THEN PR I 
;B$;PT p , 14 ; B $ 

= 15 PND fl < =16 THEN PRI 

; BS 

PT P , 17; B* 

H 

PT 12 .22; "4® FPIXP: P 
PT 14 . 22 ; "DO 
15 ,24; “5 ■/. PT 17,22; 

; PT 15,24; “10 ■/» “ 
hT 5,7; "| | | 

=4 
=2 
=Z 
= 5 
=9 

= 1 TO 3 

PT 20,0; “QUflL P COR D 
PIXP ?“ 

2 THEN LET G=ll 
2 THEN LET D=10 
= 2 THEN GOSUB 4-O0 

F 

= 14 
= 11 
600 

PT 20.0; “OUER OUTRP L 
“5“ " OU ‘“'N ; PT Z, IS 



1360 IF INKEY $=“S" THEN GOTO 10O 

0 

1370 PRINT RT 20.0; "' 

Mi 1 ; .MUM Wl'—iB 1 1 1 z.ib; "un 
MS" 

1380 IF INKEY $="N“ THEN GOTO 200 
0 

1390 GOTO 1350 
2000 CLS 

2010 PRINT " INST RU COES P/U 

TAB 0 E 

2020 PRINT .."l 1 - INSERIR P COR 

ESCREUENDO-P CORRETPMENTE , E SE 
M PEREUIPCPO. “ 

2030 PRINT , , ' ‘ 2* - PS CORES P SE 

REM INSERIDPS PPRP OS RESISTORES 
E CPPPC IT 0RE5DE POLIESTER MET PL 
IZPDO SPO : “ 

2040 PRINT . PRET 0 “ . “ * MPRROM 
UERMELHO" . " * LRRPNJP“,.,“ 
* PMPRELO " , " * UERDE" , . , "* PZUL" . 
“* UIOLETP" , , , "* CINZP" . “* BRPNC 
0" DOURPDO SOMENTE P /RES 1ST 
OR" 

2050 POKE 16415.0 

2060 PRINT PT 23 .0; “PRESSIONE H 
TECLP" “C“ " P/CONTINUPR" 

2070 IF INKEY $ = "C" THEN GOTO 300 
0 

2030 PRINT PT 

2090 GOTO 2850 
3000 CLS 

3010 POKE 16415.2 

3020 PRINT “ PRESSIONE P TECLP 
DE5EJPDP” ; T PB 0;E$ 

3030 PRINT PT 5, 5; 

3040^RINT PT 4 . 15 ; PT 5.15 

■" ; PT 6,15; “■ i“.;PT 7,15;“" 



3050 PRINT PT 12,11;" 
3060 PRINT PT 13.5: **■ 



3070 PRINT PT 14,12; UUUUUk 

3080 PRINT PT 9,11; “ CPPPC ITOR "“ 

C ; PT 17,11; ' 

3090 IF INKEY $ = “ R “ THEN GOTO 100 
0 

3100 PRINT PT 9,11; “ HSHSH 

9“ ; PT 17, 11 ; “RESISTOR ““R 

3110 IF INKEY $="C" THEN GOTO 30 

3120 GOTO 3030 

9000 SPUE "DECOD IF ICPDOS" 

9010 RUN 

P R E S S 1 0 N E P TECLP D E S E J H D P 




— nPuiruirL — 



RESISTOR “R'' 



LEITURP EM PIC0FPRPD5 tPF) 



asHEfci 



CPPPC ITOR a* 1® D I G IT 0 . . 

« 

.® 2® DIGITO . . 



N® DE ZEROS 




TEN SPO 



OUPL P COR DP 1® FPIXP ? 



LEITURP EM OHMS 



* i i 





1® DIGITO 

2® DIGITO 
N® DE ZEROS 

TOLERPNCIP 



DOURPDO 

5 ■/■ 

PRPTEPDO 



OUPL P COR DP 1® FPIXP ? 
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Os Kits de Micro Chegaram! 



APPLEKIT - Kit de microcomputador tipo Apple® 




APPLEKIT 65020 



APPLEKIT 65400 



APPLEKIT 65300 



APPLEKIT 65100 






Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



microcontrol 

Sistemas de Controles 
Tels.: (Oil) 814-0446 e 814-1110 
Sao Paulo - Brasil. 



APPLEKIT 65000 Placa de circuito impresso. 1 APPLEKIT 650101 Conjunto de soquetes, conectores, resistores e ca- 
pacitores. [ APPLEKIT 65020 1 Conjunto de semlcondutores, TTL’s, LSI e memorias (As memorias EPROM sao forneci* 
das com gravag^o). APPL EKIT 65100’ Conjunto de teclado alfanum erico c om 52 tec las e componentes, circuito im- 
presso. [APPLEK1T[652()0 Font e de alimenta^o tipo chaveado. 1 APPLEKIT 65300 1 Caixa de microcomputador em 
poliuretano. [APPLEKIT 65400 Manual de montagem e teste de micro. 



APPLEKIT e 100% compatfvel com os cartOes perifericos da MICROCRAFT. 



Apple e marca regisirada de Apple Inc. 



Voce j£ deve saber quart tas /inhas x colurtas podem ser geradas no Apple, 
mas nao fique s6 nisso... conhepa melhor a memdria de video do II Plus 



Nao perca de memoria 
o video do seu Apple 

Evandro Mascarenhas de Oliveira 



P ara muitos usuarios de equipamentos da linha Apple, 
informasoes do tipo numero de linhas x colunas gera- 
das no video ou numero de pontos em modo grifico 
de alta resolu^ao nffo sSo novidades, quando se trata 
da memoria de video do Apple. Entretanto, nesse artigo, ire- 
mos aldm dos conhecimentos comuns, adentrando na memdria 
de video do Apple II Plus para mostrar aos usudrios como tra- 
balhar mais facilmente com essa memdria. Trataremos, especi- 
ficamente, das Paginas 1, com os modos texto e grdficos em 
alta e baixa resolu 9 oes. 

Antes de qualquer coisa 6 necessdrio saber que a tela de vi- 
deo 6 mapeada de forma que a determinados enderei^os da 
RAM correspondam areas especificas, as quais exibirao carac- 
teres ou pontos coloridos quando os cddigos relativos a esses 
elementos da imagem sao referenciados naqueles endere 90 S. 

Vamos partir da figura 1 , que mostra a organiza 9 ao geral da 
memdria do Apple II Plus, com 48 Kb de RAM e 12,288 Kb 
de ROM. Nesse mapa observamos que a memdria de video ocu- 
pa as seguintes posi 9 oes: do endere 90 1024 ao 2047 esta a cha- 
mada Pagina 1 que corresponde aos modos texto e grafico de 
baixa resolu 9 §o; do 2048 ao 3071 estd a Pagina 2, com os mo- 
dos texto e grdfico de baixa resolu 9 ao; do 8192 ao 16383 esta 
a Pdgina 1 , com os graficos de alta resolu 9 ao; e, finalmente, do 
endere 90 16384 ao 24575 estd a Pagina 2 com os graficos de 
alta resolu 9 ffo. 

Em BASIC, estes endere 90 s sao acessados por POKE seguido 
do endere 90 e do codigo do cardter, nos modos texto e grdfico. 
Os endere 90 S referenciados desta forma permitem, entre outras 
coisas, exibir, em modo flash ou inverso, os caracteres que a ins- 
tru^o PRINT por si so nao faz (necessita especificar FLASH 
ou INVERSE), inclusive aqueles que nao tern acesso direto pe- 
lo teclado (letras minusculas, alguns caracteres de pontua 9 ao, 
etc.). Permitem ainda escrever em modo texto sem o uso do 
PRINT ou utilizar a Pdgina 2, inacessivel pelo BASIC, que s6 
usa a Pagina 1 . 



KAPA GERAL DA MKN6RIA DO APPLE II PLUS 



ROM: Sisteiu Monitor. 


Xnterprctador Applesoft 


I/O : teclado, slots, 


alto-f alante, controlador 


de logos, cassete, chavea "soft", controle te- 


cl ado 




DOS 


Area livrk-(2)-para o 


USUARIO: programas em lin 


guagem de maquina ate 
variavels BASIC 


'3.5 Kb, Default HImem, 
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Area I.IVRK-1 1 l-PAKA O USUAkiO: programas em lln 
guagcm de maquina ate 5 Kb 




PAGINA 3s varlaveis do Monitor e DOS ♦ Vctores. 
programas curtoa em linguagem de maqulna (142 
bytes) 



PAGINA 2: entrada de dados pelo teclado 



SISTEMA STACK: controle do retorno de sub-roti 
nas. interruptores de software e hardware 



PAGINA 0: vanavels do Monitor e Applesoft, 
endereqos livres para o usuario 



DESCRigAO DAS AREAS 



Figura 1 



CARACTERISTICA DA PAGINA 1 

A Pagina 1 apresenta, como caracteristica, uma drea de tex- 
to dividida em 24 linhas (0 a 23) x 40 colunas (0 a 39), num to- 
tal de 960 unidades graficas, sendo que cada uma dessas corres- 
ponde a urn endere 90 da RAM, entre 1024 e 2039. 

Um aspecto importante 6 que a linha zero inicia em 1024 e 
termina em 1063, porem a linha um nao come 9 a em 1064. que 



6 o infcio da linha oito, havendo a seguinte seqiiencia de linhas: 
0-8 - 16 4-12-20 

1_9 -17 5-13-21 

2- 10-18 6-14-22 

3- 11-19 7-15-23 

Sao, portanto, oito grupos de tres linhas, e a cada conjunto 
de linhas sobram oito bytes, que sao usados nos controles I/O 
dos slots para interfaces externas. Assim, as linhas 0-8 — 16 
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INVERSO 


















CARACTERES EM 
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NORMAL- 1 
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Hex 


Dec 
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Dec 
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Dec 
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Dec 
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(16) 
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Figura 2 



vao do endereso 1024 ao endere 90 1143, seguindo-se as linhas 
1-9-17, que vao de 1152 a 1271, deixando os endere?os 
1 144 a 1 151 para o byte zero dos slots 0 a 7. 

A 4rea para graficos em baixa resol uijao, da Pagina 1 , £ divi- 
dida em 48 linhas (0 a 47) x 40 colunas (0 a 39), em full screen, 
ou 40 linhas (0 a 39) x 40 colunas (0 a 39), com quatro linhas 
de texto (20 a 23) em modo misto (texto/grifico). No primei- 
ro caso, existe o dobro de linhas da drea de texto, pordm com 
o mesmo numero de endereijos, o que se explica pelo fato de 
cada cardter em texto corresponder a duas areas de cor (supe- 
rior e inferior) nos graficos de baixa resolu^ao. 

O mapeamento completo da memoria de video, nos modos 
texto e grdficos de alta e baixa resolu^Oes, podera ser consul- 
tado em Intermediate - Level Apple II Handbook, de David 
L. Heiserman, pdginas 280 a 281 e 301 a 312. 



MODO TEXTO 



Como frisamos anteriormente, a utilizafao da memoria de 
video £ feita acessando-se o endere<;o e o codigo do cardter 
atraves de POKE. Na figura 2 temos os codigos em decimal e 
hexadecimal dos caracteres usados pelo sistema para os modos 
inverso, flash e normal. 

O programa que damos a seguir exibe na tela de video os ca- 
racteres utilizados pelo sistema nas linhas 0, 8 , 16, 1, 9 e 17. 
Nele observamos que alguns desses caracteres foram suprimi- 
dos, justamente os que correspondem as posi 96 es da memoria 
para os slots, ao final das linhas 16 e 17. 

r j HOME 

10 FOR K = 0 TO 255 
20 POKE 1 024 + K , K 
30 NEXT 

Para evitar este tipo de problema, n 6 s utilizaremos tres en- 
dere 90 s e uma sub-rotina, que nos permitirao varrer na tela os 
endere 90 s da memoria de video seqiienciaimente, linha por li- 
nha, coluna por coluna. 

Os dois primeiros endere 90 s sao os 41 (S29) e 40 (S28), 
denominados respectivamente de BASH e BASL, que juntos 
representam o endere 90 do primeiro carater da corrente linha, 
sendo BASH o byte mais significativo e BASL o menos signifi- 
cative. 

Acessando PRINT PEEK (41), PEEK (40) obtem-se os valo- 



res 04 e 00 que, em hexadecimal, correspondem a S0400, ou 
1024 em decimal. Este £ o endere 90 da primeira coluna da li- 
nha zero. 

Temos agora um programa que mostra os valores em deci- 
mal de BASH e BASL, para as linhas de texto (0 a 23): 

5 HOME 

10 FOR K = 0 TO 23 

20 PRINT K, PEEK (41), PEEK 40 

30 NEXT 

Passando para hexadecimal os valores dos endere 90 S 41 e 
40, como um so,teremos todos os endere 90 s iniciais(figura 3) 
das 24 linhas da Pagina 1 (texto/grafico). 

O terceiro endere 90 £ o 36 (S24), conhecido como CV, 
pois.contem o valor da coluna do cursor. O CV, sendo adicio- 
nado ao endere 90 BASH-BASL. dara o endere 90 do carater 
que esta sendo exibido. 

A sub-rotina utilizada £ a ADVANCE, que tern im'cio no en- 
dere 90 1036. Esta sub-rotina avan 9 a o cursor uma coluna para 
a direita e quando chega ao final da linha, retorna ao inicio da 
seguinte , levando CV a zero. 

A expressao EX = 256 * PEEK (41) + PEEK (40) + PEEK (36) 
significa a conversao 

significa a conversao para decimal do valor hexadecimal do en- 
dere 90 da posi^ao atual do cursor. Combinando esta expressao 
com a sub-rotina ADVANCE, conseguiremos varrer toda a tela, 
atraves de POKE, linha por linha, coluna por coluna, conforme 
o programa abaixo. Este programa, exibe todos os caracteres 
do sistema, seqiienciaimente, na Pagina 1 , em modo texto. 

5 HOME 

10 FOR K = 0 "’O 25 5 

20 POKE 256 * PEEK ( 4 1 ) + PEEK (40) + PEEK (36), K 
30 CALL - 1036 
40 NEXT 

A expressao EX £ modificada por HTAB e VTAB ( o de- 
fault £ HTAB 1: VTAB 1). Assim, o programa anterior adicio- 
nado de HTAB 20 : VTAB 12, entre as linhas 5 e 10, inicia os 
caracteres no centro da tela. 

GRAFICOS EM BAIXA RESOLUCAO 

Em modo grafico, da mesma maneira que no texto, de acor- 
do com o endere 90 e o codigo do carater acessados atraves de 
POKE, sera exibida uma determinada unidade grafica colorida. *, 
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Figura 3 



Acompanhe na figura 4 o cardter ASCII que corresponde, 
em grifico de baixa resolu 9 ao, a duas cores: uma, superior, da- 
da pela parte menos significativa do seu codigo em hexadeci- 
mal; outra, inferior, dada pela porgao mais significativa. 

Comando, em modo grafico, POKE 1024, 129, teremos a 
exibi^ao de um retangulo colorido na linha zero e coluna zero, 
com a cor superior vermelha e a inferior marrom. £ bom frisar 
que 1 29 6 o codigo decimal da letra A, que corresponde em he- 
xadecimal a S81 , sendo 1 a cor vermelha e 8 a marrom. 

Da mesma forma que fizemos no modo texto, vamos agora, 
atravds do programa a seguir, mostrar as cores em baixa resolu- 
9 S 0 para todos os caracteres do sistema, separadas por um es- 
pa 90 : 

5 HOME 

10 GR : HTAB 1 : VTAB 1 
20 FOR K = 0 TO 255 

30 POKE 256 * PEEK(41) + PEEK(40) + PEEK(36), K 
40 CALL - 1036 
50 CALL - 1036 
60 NEXT 

A figura 5 mostra os codigos de cores unicas, quando utili- 
zado o POKE em graficos de baixa resolu 9 §o. 

GRAFICOS EM ALTA RESOLUQAO 

A tela em alta resolu 9 ao e formada por 92 linhas (0 a 191) 
x 280 colunas (0 a 279), em full screen, num total de 53760 
(192 x 280) elementos de imagem, ou, entao, 160 linhas (0 a 
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Figura 5 



1 59) x 280 colunas (0 a 279), em modo misto (grlfico/texto), 
com quatro linhas de texto (20 a 23). 

Em alta resolu 9 ao, a tela 6 varrida por 64 grupos de tres li- 
nhas, deixando oito endere 9 os livres, ao final de cada grupo, 
que se diferenciam dos anteriores por oito linhas, assim: 
0-64-128 
8-72-136 

16 -80 - 144 

24 - 88 - 152 

O mapeamento da memoria requer 7680 bytes, que corres- 
pondem a 192 linhas x 40 colunas tendo cada coluna 7 bits ou 
280 elementos (40 x 7) de imagem por linha. O programa abai- 
xo demonstra esta distribu^ao: 

'0 HOME 
20 HGH 2 

iO FOB K = 16384 TO 24567 

40 POKE K.255 : FOB L => I TO 10 : NEXT 

50 NEXT 

Quando o endere 9 o e o codigo de um carater sao acessados 
por POKE, em alta resolu 9 ao, havera a exib^ao, ou nao, de 
pontos luminosos, conforme o equivalente em binario daquele 
codigo. 

Dos oito bits de um byte, sete sao responsaveis pela forma- 
9 ao dos elementos da imagem, acendendo um ponto quando o 
valor for 1 e mantendo apagado, quandor for zero. O oitavo 
bit 6 usado para controle das cores Branco 1 , Branco 2, Preto 1 
e Preto 2. 

Na figura 6 , podemos observar o efeito atraves do comando 
POKE, seguido do endere 90 e do codigo, com os elementos da 
imagem em alta revolu 9 §o e os seus correspondentes binarios. 
Vemos entao que os codigos estao interpretados, de maneira 
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ELKMENTOS DA I MAG EM BINARIO 

12 1 4 5 6 7 Cod i go 8 7 6 5 4 3 2 1 

1 1 1 1 I 1 1 °I-oS 1 0 1 0 1 0 1 0 I 0 1 °1 °1 0 



Dec- 127 
S-7F 



Dec- 128 
S-80 



Dec-255 

S-FF 



0 0 0 0 0 0 0 1 



0 0 0 0 0 0 10 



0 0 0 0 0 1 1 1 



0 1111111 



10 0 0 0 0 0 0 



11111111 




0 Banco tfe negocios. 
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Figura 6 

reversa, isto e, os bits mais a direita do byte tern sua imagem 
na tela mais k esquerda, como se fosse observada por urn espe- 
lho. 0 programa a seguir reproduz a figura 6 na tela do video: 

10 HOME 
20 HGK 

30 FOK K • 8192 TO 14JJ6 STEP 2048 
40 HEAD A : POKE K , A : NEXT 
50 DATA 0, 1 , 2. 7 

60 FOK K * 8320 TO 12426 STEP 2048 
70 HEAD A : POKE K , A : NEXT 
80 DATA 127, 128, 255 

Esse fenomeno, de forma?ao da imagem de maneira reversa, 
pode ser melhor observado atraves da figura 7. Neste ultimo 
programa, exibimos a seguir, a letra R, na matriz 8x7, corres- 



Fip/ra 7-0 numero 83 ($53), sua representapao bindria e correspon- 
dence em grdfico de alta resolupao, como imagem na tela de video. 



pondente &s linhas de 0 a 7 e colunas 0 a 6, gerada por mapea- 
mento de bits, de acordo com a figura 7. 



10 HOME 
20 HGK 

10 FOR K - 8192 TO 15J60 STEP 1024 
40 READ A, 

50 POKE K , A 
60 NEXT 

70 DATA 0, 30, 34, 34, 30, 6, 10, ' 
80 END 



Para finalizar, 6 bom frisar que os cddigos 0 e 128, assim 
como, 127 e 255, tern o mesmo efeito visual: os bits apagados, 
no primeiro caso e todos acesos, no segundo. Isto porque o oi- 
tavo bit nao tern influencia, devendo ser o byte interpretado 
como sendo de 7 bits. £ 



Evandro Mascarenhas de Oliveira d mddico e vem desenvolvendo suas 
atividades nas dreas de Laboratdrio Clinico e Instrumentapao Mddica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Nucleo 
de Computapao Eletrbnica da UFRJ nas linguagens FORTRAN IV e 
ALGOL. E usudrio dos micros NE-Z8000 e AP II. 



FIRST 
VIDEO 

CASSETE ^ 
ENGLISH COURSE 

• Com 2 fitas de 3.30 hs. de durapao, um manual, urn 
iivro de exercicio e um de texto voce e toda a sua 
familia aprenderao a talar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estudio e em 
externas mostrando sempre cenas do nosso cotidiano. 

• Prego de langamento a vista com 10% de desconto 
ou em at6 1 2 vezes. 

CURSOS BASIC (Simples e Avangado), VISICALC, 
EDITOR DE TEXTO, PROFILE, MALA DIRETA/ETI. 
CRIANQAS E ADULTOS. 

COMPUTER CAMPING, Para Crianpas de 8 a 14 anos. 
Periodo de Ferias e nos Fins de Semanas. 

PARQUE HOTEL DE ARARUAMA. 



N Venha nos visitar e assistir a uma demonstraqao. 

§>BRASILTRADE CENTER INFORMAQOES: TEL: 259-1 299 

Av. Epitacio Pessoa, 280 (Esquina com Visconde de Piraja), aberto ate as 22.00 h. Tel.: PBX (021) 259-1299 
Rua da Assembleia, 10 - Loja 112 - Centro Empresarial Candido Mendes 
Tel.: PBX (021) 222-5343 










Minas debate impacto da 
tecnologia na sociedade 



A Fundapdo Joffo Pinheiro 
vai promover, de 20 a 23 de 
agosto, em Belo Horizonte, o 
Seminario Sociedade, Cultura e 
Tecnologia. 

Partindo da premissa de que 
"ser3 justamente pelo conjunto 
de decisdes que hoje estdo sen- 
do assumidas, ou ndo assumidas, 
que o Brasil de amanhS vai ga- 
nhar o seu contorno e o seu de- 
sempenho politico, institucional 
e social", o semindrio vai pro- 
curar, com o auxflio de tdcni- 
cos e intelectuais e dentro de 
um enfoque baseado na Cultura, 
detectar os elementos da "nova 
revolupdo" que estd se proces- 
sando "no campo da produpao 
economica e industrial com as 
chamadas tecnologias avanqadas 
na area da Informaticae das Te- 
lecomunicapdes”. 

Os temas a serem abordados 
sdo os seguintes, com seus res- 
pectivos expositores: Sociedade, 
Economia e Tecnologia (prof. 



Alufsio Pimenta, presidente da 
Fundapdo Jodo Pinheiro); Novas 
Tecnologias da Comunica^So e 
Cultura (Benedito Nunes); In- 
formdtica, EducagSo e Juventu- 
de (Ziraldo Alves Pinto); Novas 
Tecnologias da ComunicagSo e a 
Criatividade Artistica (Julio Me- 
daglia); Novas Tecnologias da 
ComunicaqSo e da InformagSo e 
a Semidtica (Dado Pignatari); 
Novas Tecnologias e a Memdria 
Cultural (Celina Vargas Moreira 
Franco); Novas Tecnologias e 
Meio Ambiente (Josd Zatz) e 
Novas Tecnologias e os Cendrios 
do Futuro (Amilcar Herrera). 

O seminario sera realizado 
no auditbrio do Banco de De- 
senvolvimento de Minas Gerais 
— BDMG e os interessados po- 
derdo inscrever-se ou obterem 
maiores informapdes junto a 
Fundapdo JoSo Pinheiro, Av. 
Joao Pinheiro, 146 — 109 an- 
dar, tel.: (031) 222-6833 ramal 
149. 



NCE promove 4° SEMICRO 



0 Nucleo de Computapao Eletronica da Universidade Federal do 
Rio de Janeiro (NCE/UFRJ) promoverd, de 27 a 30 de agosto, no audi- 
t6rio do Centro de Tecnologia no Campus da llha do Funriao, o 49 
SEMICRO — Seminario de Microcomputadores e a 3? Microexposipao 
de Fabricantes Nacionais de Micros e Perifdricos. 

O advento dos supermicros sera o destaque da programapao que 
incluira, em linhas gerais, varias palestras sobre tecnologia e aplicapdes 
em microinformatica, software basico, microeletronica e automapao de 
escritbrios. Aldm dos conferencistas nacionais, o evento — que conta 
com o apoio da OEA, al6m da SEI, SBC, Finep, Capes, CNPq, Funteve, 
CNI/Senai, Serpro, Abicomp e Sucesu — contara tambbm com a partici- 
papao de convidados estrangeiros que apresentarao um panorama sobre 
as pesquisas cientfficas e as tendencias industriais em ambito interna- 
cional. 

Paralelamente ao SEMICRO, esta prevista a realizapao de tres semi- 
narios especiais abordando a penetrapao da Informatica em campos es- 
pecfficos de atuapao: I SINED — Simpbsio de Informatica Educativa, 

I SACI — Seminario de Aplicapdes Cientfficas em Informatica e II 
SEMAP — Seminario de Microinformatica na Administrapao Publica. 

A 3? Microexposipao ficara aberta ao publico em geral durante os 
quatro dias do SEMICRO, mostrando os mais recentes lanpamentos em 
termos de hardware, software e publicapoes especial izadas. Maiores in- 
formapoes podem ser obtidas pelo telefone (021 ) 290-3222, ramais 214 
e 248 ou (021) 270-2438. 



Monitores de 
todas as cores 



A Computique acaba de re- 
ceber as primeiras unidades de 
monitores profissionais de video 
com tubo na cor ambar. Fabri- 
cados pela Compo do Brasil, 
esses monitores tambdm estao 
disponiveis com fdsforo azul. 
Quanto aos videos em fdsforo 
verde, a Computique comercial i- 
za os das marcas Instrum, Com- 
po e Unitron. 

A loja tamWm fornece, sob 



encomenda, videos coloridos 
padrao RGB, utilizados princi- 
palmente nos micros de 16 bits. 
Para os que procuram uma 
oppao mais economica, para 
aplicapao sobretudo em micros 
domdsticos, a Computique ofe- 
rece o televisor Telefunken de 
14", que jd vem com fdsforo 
verde e adaptapao para video re- 
verso, seleciondvel no prdprio 
aparelho. 




Automapao comer cial 
realiza I Congresso 




Terminal de Ponto de Venda, da Digirede 



"A automapao comercial vird 
e ndo adianta nos opormos a 
ela". Com essas palavras, Edson 
Ditz, Secretdrio Especial de In- 
formatica, abriu o I Congresso 
de Automapdo Comercial, pro- 
movido pela ABAC, de 18 a 22 
de junho, em Sdo Paulo. 

Mas como anda a automapdo 
comercial no Brasil? Segundo 
comentaram os participantes do 
encontro, ela ainda esbarra 
em muitos entraves, tais 
como a grande fatia do merca- 
do que nao tern poder aquisi- 
tivo para adquirir um terminal 
de ponto de venda PVD, equipa- 
mento que veio para substituir 
as caixas registradoras. O PVD 
deve ser acoplado a um leitor 
dptico (scanner), que 6 instalado 
na esteira do caixa e le os cb- 
digos de barra (sinais de identi- 
f icapao do produto que sSo 
transformados em prepos). O 
problema d que esses leitores 
dpticos nao sSo fabricados no 
Brasil e ainda n£o h^ um cddigo 
de barras oficial no pais, o que 
estS previsto para breve. Outro 
grave problema 6 a legislated 
fiscal sobre as caixas registrado- 
ras, que d diferenciada em cada 
estado. Todos esses entraves fo- 
ram amplamente discutidos du- 
rante o Congresso. 



Mas apesar de todos os obs- 
tbculos, muitas lojase supermer- 
cados ja fazem uso da automa- 
pSo. No Mappim as rndquinas 
registradoras ja sSo conectadas a 
micros, podendo fornecer a nota 
fiscal de venda com a simples 
digitapSo do cddigo do produto. 
Ja no Makro funcionam mais ou 
menos 30 terminais de ponto de 
venda em cada loja. Esses ter- 
minais sSo ligados a um IBM 
4341 e processam atS 10 mil no- 
tas fiscais por dia. Depois de 
emitida a nota fiscal 6 dado bai- 
xa no estoque referente S mer- 
cadoria vendida, e a qualquer 
hora 6 possivel obter listagens 
do volume total de vendas e dos 
produtos que precisam ter repo- 
sipSo no estoque. 

No Brasil quern controla o 
mercado de terminais de ponto 
de venda 6 a Tecnodata, com 
dois mil terminals instalados. A 
Racimec e a Zanthus tambdm 
estSo incorporando inovapdes Ss 
caixas registradoras. Paralela- 
mente ao Congresso houve uma 
feira onde foram apresentadas as 
inovapdes do setor. A Casa Rio 
Prata mostrava uma caneta ele- 
trdnica (light pen) e uma m3- 
quina registradora acoplada a 
um scanner, importada dos Esta- 
dos Unidos. 
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Distribuidora de software 



Acaba de ser inaugurada a 
Disoft Distribuidora de Softwa- 
re S/C Ltda., que tem como ob- 
jetivo estabelecer convinios com 
software-houses e au tores inde- 
pendentes de todo Brasil, para 
distribuipio de sistemas e aplica- 
tivos para microcomputadores. 
A Distribuidora tamWm pre- 
tende dar aos produtos padrdes 
de acabamento, embalagem e 
confiabilidade para sua comer- 
cializapio. A distribuipao seri 
feita somente a lojistas, acom- 



panhada de material promocio- 
nal e do apoio necessirio, para 
que a venda de software estimu- 
le a venda de hardware e supri- 
mentos. 

A Disoft — que fica na Av. 
Brigadeiro Faria Lima, 1664 — 
49 andar, tel.: (Oil) 813-0497, 
SSo Paulo — ji tem dispom'veis 
sistemas de Controle de Esto- 
que, GestSo de Condom mios, 
Controle Financeiro de Obras. 
Mala Direta e Faturamento de 
Leasing, entre outros. 



Atualizacao profissional 



Anilise Comparativa dos Mi- 
crocomputadores 6 o tftulo do 
semin^rio que o professor Em- 
manuel Lopes Passos vai minis- 
trar no I BAM de 15 a 17 de 
agosto, destinado a t^cnicos e 
gerentes da 3rea de computapao 
envolvidos com o planejamento 
e instalapSo de micros na em- 
presa. E entre 20 e 21 de agos- 
to, o I BAM realiza, para geren- 
tes e analistas de sistemas e de 
suporte e coordenadores de pro- 
jetos na area de teleprocessa- 
mento, o seminario Automacao 
de Escritdrios, sob a responsa- 
bilidade de Evandro Barreira Mi- 
let. O custo desses seminarios, 
que incluem ainda Informitica 
Distribuida (23 e 24 de agosto) 
e Marketing In ter no do CPD (29 
a 31 de agosto) fica entre Cr$ 
400 e Cr$ 600 mil. 



O I BAM vai promover, ainda, 

0 III Curso de AtualizaqSo em 
Anilise de Sistemas. Com rn'vel 
de p6s-graduap5o latu sensu, o 
curso tem cerca de dois meses e 
meio de du rapSo (20/08 a 08/1 1 ) 
e seu custo devera ficar por vol- 
ta dos Cr$ 200 mil mensais. Os 
principais temas abordados s5o a 
Atualizacao Metodoldgica. O Es- 
tado da Arte da Tecnologia de 
Informitica e Atualizacao Ge- 
rencial. estando ainda previstos 
seminarios nas areas de Automa- 
cSo Industrial /Robbtica, Auto- 
macSo de Escritdrios, Informa- 
tizacSo da Sociedade. O Profis- 
sional de Informitica e A Po- 
Iftica de Informitica no Brasil. 
Maiores informapdes na sede do 

1 BAM, no seguinte enderepo: 
Largo do I BAM, n? 1, Botafo- 
go. CEP 22282, tel.: (OLD 266- 
6622, Rio de Janeiro — RJ. 




Super 700, o novo 
micro da Pro/ogica 



A Proldgica esta lanpando o 
Super 700, micro de 8 bits, 
compati'vel com os Sistemas 600 
e 700. podendo, assim, utilizar 
todo o software ja desenvolvido 
para estes micros. 

0 Super 700 tem quatro m6- 
dulos: UCP, Video, teclado e 
fonte de alimentapEfo e preve 
piacas de expansao para conec- 
tar perifdricos (impressora, plot- 
ter, modem). O equipamento 
possui quatro microprocessado- 
res, tres Z80A, sendo que o pri- 
meiro a o gerenciador do siste- 
ma e acessa 64KB de memdria 
RAM, controla as duas portas 
RS 232 e 3 slots para expan- 
soes; o segundo controla as uni- 
dades de disco flex ivel e ri'gido e 
tem 2KB de memdria RAM e 8 



KB de EPROM; o terceiro con- 
trola video e teclado com 10 KB 
de memdria RAM, O quarto mi- 
croprocessador 6 um Intel 8035, 
que esta no teclado e realiza a 
leitura, decodificapao e trans- 
missdo de dados. O teclado pos- 
sui 103 teclas, 65 alfanumdricas, 
14 teclas para operapdes arit- 
m6ticas, cinco para posiciona- 
mento do cursor, 15 de funp/To 
e quatro especiais. 0 video 6 de 
12 polegadas, com capacidade 
para 80 colunas e 27 linhas, fds- 
foro verde, 4 KB de memdria 
RAM estStica (armazena atd 
duas pdginas). O Super 700 es- 
creve em portuguds, japones, 
russo e grego e reproduz os mais 
sofisticados slmbolos matemfiti- 
cos. 



/ STRINGS 



★ Atendendo a pedidos de usudrios, a Proldgica est3 oferecendo o CP- 
500 com nova cor de gabinete: cinza escuro. ★ A Prodesp — Cia. de 
Processamento de Dados do Estado de Sao Paulo tem novos presidente 
e diretor administrative financeiro, respectivamente, os engenheiros 
Egydio Bianchi e Josd Luis Ricca. Apos nomear 1 5 revendedores em 
todo o pals para comercializar os micros Capu/a e Capu/a Dual, a Danvic 
inaugurou recentemente a sua primeira filial, localizada em Porto Alegre 
e administrada pela Datasystems.* Souza’s Computer Center estS aten- 
dendo em novas instalapoes, na Av. Domingos Ferreira, 2965, Boa Via- 
gem, Recife. ★ Softacervo 6 um clube para crianpas e adolescentes que 
tem por objetivo a troca de programas prontos para rodar (jogos, educa- 
tivos etc.). Os interessados em se associarem devem escrever para a Rua 
Pardal, 558, Vila Pde Manuel da Nobrega, CEP 13100, Campinas — SP. 
4 A Microshop oferece treinamento e assistencia na implantapao do Link 
727. Para maiores informapoes, entrar em contato com o Sr. Carlos pelo 
tel.: (01 1 ) 853-9288. 4 Cr$ 1 milhao 500 mil 6 quanto a SUCESU vai 
dar para os gannadores das tres categorias estabelecidas pelo Primio 
Imprensa do Informitica 84: Informapao Especializada, Reportagem 
Geral e Matiria Especial, esta.dentro do tema do Congresso — Onde 
Estamos. Para Onde Vamos. Podem concorrer trabalhos divulgados em 
vefculos impressos ou audiovisuais entre 19 de janeiro e 19 de novem- 
bro de 1984. 4 Ji estao em funcionamento no Eldorado Plaza e Shop- 
ping Center Eldorado, em Sao Paulo, os primeiros terminals Credicard/ 
Visa, que permitem aos usuirios desses cartoes de cridito efetuarem seus 
pagamentos em apenas 40 segundos, com total seguranpa para o comer- 
ciante. A empresa pretende estender esses terminals gradativamente a 
toda a rede Eldorado, na capital paulista, bem como a outros estabele- 
cimentos filiados. ¥ A SEI acaba de homologar o PC 2001 , micro de 16 



bits compatlvel com IBM-PC e fabricado pela Microtec. Com a homolo- 
gapao, o equipamento poderi ser vendido a instituipoes governamentais 
e ser financiado atravis do Finame. Basketball. Auto Racing, Space 
Armada. Tron Deadly Discs e Rerversi sao os novos jogos que a Digi- 
play esti colocando no mercado para o videogame I ntel I ivision . At6 
outubro, a empresa pretende colocar no mercado 14 novos cartuchos, 
perfazendo um total de 30 tftulos. ♦A Cobra — Computadores e Siste- 
mas Brasileiros S.A. divulgou o seu mais recente balanpo, em que apre- 
senta um resultado de Cr$ 9,8 biihoes. As vendas cresceram 30% em re- 
lapao ao exerclcio anterior, enquanto o faturamento global atingiu a ci- 
fra dos Cr$ 71 ,4 biihoes. ★Inaugurada recentemente, a Skill-lnformitica 
tem como objetivo fornecer programas conversacionais para pessoas 
leigas em programapao. Representanie da linha norte-americana de soft- 
ware Star, a empresa dispoe, entre outros, de programas de matriz de 
calculo, banco de dados e processacor de textos.-^A Kristian Eletroni- 
ca Ltda. colocou no mercado seis novas fitas com jogos para o TK-2000 
Color - Gobbler, Space Attack. Operacao Perigo. Desafio Fatal, Corri- 
da Maluca e Contra-Ataque — , alim do livro Os 40 Melhores Jogos para 
seu TK/CP 200 e Sinclair. A Kristian, aliis, \& esti funcionando em seu 
novo enderepo: Rua Gonzaga Bastos, 112, Tijuca, CEP 20541, Rio de 
Janeiro — RJ, tel.: (021) 268-8249. 4 Embratel e Abicomp divulgaram 
dia 29 de junho as conclusoes do grupo de trabalho que definiu o pro- 
tocolo de comunicapao entre conversores BSC-3/X.25, para acesso a 
Renpac. Os ticnicos da Abicomp estudam agora protocolos para inter- 
ligar conversores BSC-1 /X.25 e entre computador e PAD (Packet 
Assembler-Disassembler), este ultimo para acesso de equipamentos 
assfneronos, compatfveis com teletipo. m 
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ABNT estuda compatibilidade 
dos equipamentos nacionais 



At£ o final deste ano deverSo estar con- 
clufdos os trabalhos da ComissSo de Estudo 
estabelecida pela AssociapSo Brasileira de 
Normas T6cnicas — ABNT com o objetivo 
de definir um conjunto padrSo de caracte- 
res comum a toda a industria e que permiti- 
r& o intercSmbio de informapdes entre os 
diferentes equipamentos disponfveis no mer- 
cado, mediante um nfvel mfnimo de compa- 
tibilidade entre eles. 

Para atingir tal objetivo, comenta Frede- 
ric do Couto, coordenador da comissSo e 
representante da Abicomp, h£ vSrios proble- 
mas a resolver. Em primeiro lugar, 6 preciso 
garantir a compatibilidade da norma com o 
que existe nSo s6 no mercado interno, como 
tamWm no exterior (“nSo podemos ser uma 
ilha"), e sem perder de vista os desenvolvi- 
mentos tecnolbgicos j£ em curso ou ainda 
por vir. 

Outro problema a solucionar 6 que a 
norma internacional seguida no Brasil — o 
padrSo ASCII (American Standard Code for 
Information Interchange) — apresenta uma 
sbrie de ambigiiidades (ex.: caracteres que 
podem ter mais de uma funpSo determina- 
da). Isso, segundo Couto, deve ser elimina- 
do, posto que inevitavelmente conduz £ 
curiosa situapSo de todos os fabricantes se- 
guirem a mesma norma e seus equipamen- 
tos nSo serem compatfveis entre si. E por 
isso, explica ele, que os conjuntos de carac- 
teres nSo batem no Brasil. 

A norma ASCII, prossegue Frederic do 



Couto, traz ainda uma dificuldade que diz 
respeito £ sua prbpria abrangencia: tern 83 
padrfles, e ela prbpria diz que nenhum ter- 
minal pode reunir todas as caracterfsticas 
previstas, uma vez que t§m por final idade 
cobrir uma gama muito ampla de mSquinas, 
tais como terminais de vfdeo, impressoras, 
fotocompositoras etc. No Brasil, acrescenta 
o coordenador da comissSo, estS-se procu- 
rando fazer com que as empresas digam cla- 
ramente qual 6 o seu conjunto de facilida- 
des, ciassificando-os segundo nfveis. 

Em termos prSticos, a norma a ser esta- 
belecida pela ABNT — em comum acordo 
com a industria, o governo e demais setores 
interessados - consiste na utilizapSo de dois 
subconjuntos de caracteres, um bSsico (o 
ASCII, depurado de suas ambiguidades) e 
um complementar que deverS incluir, aISm 
do PortuguSs, sfmbolos especfficos de v£- 
rias Ifnguas culturalmente vizinhas, como os 
pontos de exclamapSo e interrogapSo in- 
vertidos do Espanhol, o t forte do Alemao, 
e o oe contra (do do Frances. 

Sob o ponto de vista tScnico, exemplifi- 
es Couto, isso 6 plenamente viSvel e jS foi 
feito no Japao para acondicionar os carac- 
teres ideogrSficos da Ifngua japonesa. Mas 
as dificuldades a serem vencidas para que se 
materialize uma norma brasileira nSo se 
prendem apenas aos laboratbrios de pesqui- 
sas e Ss linhas de montagem. Conforme re- 
conhece o representante da Abicomp, “um 
padrSo sempre incomoda um pouco a to- 



dos, sempre fere interesses". Portanto, “pa- 
ra se ter um padrSo, 6 preciso ter em vista o 
interesse maior do pafs, administrando-se os 
casos particulares". 

A comissSo j£ solicitou £ comunidade 
uma proposta de teclado, enquanto que o 
Centro de Tecnologia para a InformStica — 
CTI est£ elaborando um mdtodo de ensaio 
que permitira verificar, de maneira Clara e 
objetiva, se os equipamentos e, principal - 
mente, as configurapbes que integram ("to- 
rnado de maneira isolada, cada elemento 
pode respeitar o padrSo, mas nSo o sistema 
como um todo”), enquadram-se nas normas 
estabelecidas. 

Uma coisa que Couto faz questSo de res- 
saltar 6 o career aberto dos trabalhos da co- 
missSo que coordena. “Nada vai ser empur- 
rado goela abaixo”, enfatiza ele com o bom 
humor que Ihe 6 caracterfstico, ressaltando 
que os assuntos serSo amplamente debati- 
dos e que os documentos bSsicos j£ difun- 
didos pela ABNT "nSo sSo um produto aca- 
bado. Eles t£m lugar para muitos pontos de 
discussSo". 

A comissSo, denominada ComunicaqSo 
Homem-Mdquina e Portabilidade de Arqui- 
vos e Dados, pertence ao SubcomitS de 
Hardware do ComitS Brasileiro de Compu- 
tadores e Processamento de Dados - COB I, 
da ABNT. Frederic do Couto falouaMICRO 
SISTEMAS durante a reuniSo realizada dia 
19 de junho, estando o prbximo encontro 
marcado para 14 de agosto no mesmo local: 
a sede do COBI, no Rio de Janeiro. 



5° ENESI mostra tendencia 
mundial da Informatica 

A TendSncia Mondial dos Negdcios de Informdtica. Este 6 o tema 
central do 5? ENESI — Encontro Nacional das Empresas de Servicos de 
InformStica, a realizar-se no Hotel Nacional-Rio, de 24 a 26 de setem- 
bro prbximo, numa iniciativa da Associa^ao Brasileira das Empresas de 
Servicos de InformStica — Assespro, com patroefnio da Embratel e 
apoio da Secretaria Especial de InformStica — SEI e da ConfederapSo 
das Associapdes Comerciais do Brasil. 

O panorama internacional ficarS a cargo de empresas especial izadas 
dos Estados Unidos, JapSo e Franpa que, mediante roteiros depergun- 
tas prS-estabelecidas pela Assespro, irSo mostrar £s suas congSneres na- 
cionais — que operam nas Sreas de bureau, software e system-houses, 
consultoria, treinamento e comercializapSo — as tend&ncias observadas 
nos pafses h'deres no emprego da InformStica, fomecendo aos empre- 
sSrios brasileiros subs 1 'dios para a orientapSo dos seus neg6cios. 

Com base nos depoimentos expostos, o 5? ENESI procurarS anali- 
sar as informapdes obtidas, visando o fortalecimento do setor nacional 
de servipos e de software. Fora isso, o encontro tern como objetivos 
concretizar acordos e convSnios, envolvendo o setor de servipos, drgSos 
govema men tais, e outros segmentos da comunidade de InformStica, 
aISm de estimular a troca de experiencias e informapdes entre os parti- 
cipantes, em especial no Smbito do empresariado nacional. 

AISm de contar com a presertpa de representantes de Portugal, Es- 
panha e pafses da AmSrica Latina e Africa, o 59 ENESI apresenta duas 
importantes novidades:a instalapSo de uma Bolsa de Negdcios destinada 
a incentivar a efetivapao de contratos e transapdes comerciais durante o 
evento e a exposipio de equipamentos, cuja final idade S divulgar novas 
mSquinas, suprimentos e tScnicas disponfveis para as empxesas nacio- 
nais de servipos e software. Os interessados em participar do evento po- 
derSb inscrever-se ou obter maiores informapdes junto £ Assespro Na- 
cional, Av. Rio Branco, 45 - si. 1405, CEP 20090, tel.: (021) 253- 
1680, Rio de Janeiro — RJ. 




Teclado para Sinclair 



Para facilitar o uso dos mi- 
crocomput adores da linha Sin- 
clair em atividades profissionais, 
a Speed Eletro Eletronica est£ 
lanpando um teclado profissio- 
nal tipo miquina de escrever 
com gabinete em fiberglass. Esse 
conjunto 6 vendido em tres mo- 
delos diferentes: SP-400; SP- 
230; e SP-1 60. O SP-400 6 com- 
p>osto p>or teclado e gabinete 
dimensionado para comportar o 
micro, expansao e fonte de ali- 
mentapao, e sobre ele pode ser 



colocado um terminal de vfdeo 
de at6 12 polegadas. O segundo 
modelo 6 composto por teclado 
com gabinete prdprio, ligado ao 
micro atrav£s de cabo multivias; 
e o SP-1 60 6 composto por gabi- 
nete e teclado num£rico de 12 
teclas. A empresa comercializa 
tamb6m os componentes desses- 
produtos para que o usu£rio for- 
me o conjunto de acordo com 
suas necessidades. A Speed fica 
na Rua I, n9 395, em Conta- 
gem, MG.Tel. (011) 463-3171. 
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Datalogica lan fa dBase III 
e nova versao do dBase II 



A Datalbgica Transnational 
estci langando no Brasil o dBA- 
SE III, gerenciador de banco de 
dados relacional para micros de 
16 bits e de maior porte. 0 novo 
sistema permite ao usu^rio en- 
trar, manipular e alterar grande 
volume de dados, albm de desen- 
volver programas de aplicagSo 
personaiizados. 

O dBASE III tern como ca- 
racterfsticas principals a capaci- 
dade de armazenar atb 2 bilhbes 
de registros por arquivo, com 
128 campos por arquivo e o uso 
de at i 10 arquivos abertos si- 
multaneamente. Esse novo sis- 
tema, que trabalha com video 
colorido, ser4 inicialmente co- 
mercializado no mercado brasi- 
leiro por 200 ORTN. 

A empresa tambbm estS lan- 
gando uma nova versao do dBA- 
SE II, agora dBASE 2.41.0 no- 
vo software permite fazer cJIcu- 
los com uma precis^o numbrica 
de atb 16 dfgitos, conta com 
buffer de teclado, spool de im- 
pressed e opcional de transmis- 
sSo de arquivos para diferentes 
modelos de micros, em modo 
local ou remoto. Os usubrios do 
dBASE II que quiserem adqui- 
rir a nova versSo, pagarffo ape- 
nas o equivalente a 10% do pre- 
go original, pela troca. 

Constitui'do ao mesmo tem- 
po de um gerenciador de bancos 
de dados relacional, de uma lin- 
guagem de programapSd e de um 
conjunto de utilitbrios, o dBA- 
SE II, apesar de sua complexida- 
de a nfvel interno, b bastante 
simples de operar, nbo exigindo 
do usubrio conhecimentos prb- 
vios de programagbo. 

A mecbnica de armazena- 
mento e manipulagbo dos dados 
6 automaticamente feita pelo 
sistema, orientado pelo usubrio 



mediante um conjunto de co- 
mandos de fbcil aprendizado e 
utilizagbo, tais como CREATE, 
para criar arquivos, DISPLAY, 
para consultar algum ou todos 
os dados, APPEND, que permite 
acrescentar dados a um arqui- 
vo, FIND (pesquisa de dados) 
etc. 

Gerenciador de banco de da- 
dos mais vendido em todo o 
mundo, com 200 mil cbpias ins- 
taladas, este sistema pode traba- 
Ihar com praticamente todos os 
microcomputadores existentes, 
uma vez que roda sob os siste- 
mas operacionais CP/M-80 e 86, 
e MS-DOS. Suas necessidades 
mfnimas de membria RAM sbo 
as seguintes: 48 Kb para a maio- 
ria dos micros; 56 Kb para os 
compatfveis com o Apple e 128 
Kb para os equipamentos basea- 
dos nos microprocessadores In- 
tel 8086 e 8088. 

Desenvolvido pela Ashton 
Tate, o dBASE II, assim como o 
sistema de automagbo de escri- 
tbrios Friday, b comercializado 
no Brasil pela Datalbgica Trans- 
national, represen tante exclusiva 
da empresa norte-americana. Em 
vista da existbncia de um sig- 
nificative numero de cbpias nbo 
autorizadas do dBASE II jb em 
uso no mercado brasileiro.a Da- 
talbgica estb oferecendo aos 
usubrios desses softwares a re- 
gularizapao de suas cbpias, com 
o recebimento de um numero 
serial autorizado que garantirb 
ao usudrio o treinamento, supor- 
te tbcnico e todas as atualiza- 
gbes feitas pela Ashton Tate. 
Para isso, basta entrar em con- 
tato com a Datalbgica: Av. Pau- 
lista, 2028 — 29 andar, Sbo Pau- 
lo - SP, tel.: (011) 283-0355; 
Av. Rio Branco, 177 — 159 an- 
dar, Rio de Janeiro — RJ, tel.: 
(021) 221-2155. 



PRECOS 



A empresa Madison S/A Importagao e Combrcio, com sede 
em Curitiba d Rua Marechal Deodoro, 311/315. Tel.: (041) 
224-3422 e filiais em Londrina, Arapongas, Maringd, Rolandia e 
Joinville, remeteu-nos a seguinte tabela de pregos em ORTN rela- 
tiva aos equipamentos que comercializa: 

Maxxi (16 K) - 90,53 
HP-85B (16 K) -783,12 
CP 300 (16 K) - 58,62 
CP 500 (48 K) - 1 50,13 (sem drive) 

225,58 (um drive) 

356,10 (dois drives) 

TK 83 ( 2 K) - 19,60 
TK 85 ( 16 K) - 33,18 
(48 K) - 55,06 
TK 2000 (48K) -75,13 



Automate) bancaria 
tem Feira no Anhembi 

De 13 a 17 de agosto, no Paldcio das Convengoes do Anhembi, serd 
realizada a V Feira Latino Americana de Equipamentos de AutomafSo 
Bancaria. Essa feira tem o patroefnio da Federagbo Latino Americana 
de Bancos, Federagbo Nacional de Bancos e Federagbo Brasileira das 
Associagoes de Bancos e conta com o apoio do Centro Nacional de Au- 
tomagbo Bancdria. A promogbo e organizagdo ficam por conta da Guaz- 
zelli Associados Feiras e Promogbes. 

Para essa feira espera-se a participagbo de 400 delegados internacio- 
nais, rep resen tantes de entidades financeiras. Em paralelo d Feira serd 
realizado o X Congresso Latino Americano de Automagdo Bancdria, 
com o objetivo de promover a integragdo entre banqueiros nacionais e 
internacionais, atravbs da troca de informagbes tbcnico-cientfficas da 
drea. 



Inforamazonia 84, 
em Belem do Para 



Informazdnia, I Simpbsio e 
I Exposigao de Informdtica na 
Amazonia, serd realizado de 27 a 
31 de agosto em Beldm do Pard, 
no Campus da Universidade 
Federal do Pard, com patroefnio 
da SEI, UFPa e apoio da 
SUDAM e BASA. 

O Informazdnia 84 tem co- 
mo finalidade mostrar aos em- 
presdrios e organismos governa- 
mentais o que hd de mais mo- 
derno em produtos para proces- 
samento de dados, telecomuni- 



cagoes, microfilmagem, supri- 
mentos e materiais para geren- 
ciamento da informagao. Parale- 
lamente serao promovidos cinco 
cursos em hordrio noturno: 
Introdugao aos Sistemas Micro- 
grdficos, Programa^ao Estrutura- 
da em COBOL, Custos em Pro- 
cessamento de Dados, Informd- 
tica para Usudrios, Informdtica e 
Medicina. O Informazdnia estd 
sendo promovido pela SUCESU, 
maiores informagbes pelo tel.: 
(091 ) 225-3060. 



Assessoria a empresas 
em Campina Grande 



A Data Shopping S/C Ltda., de Campina Grande, Parafba, presta ser- 
vigos de desenvolvimento de software para micros da linha Apple ou 
CP/M, assessoria em processamento de dados, cursos de introdugao ao 
BASIC e de BASIC avangado e treinamento em computagao dirigido ds 
empresas. 

Contando entre seus clientes com o S. A. Didrio de Borborema, Cur- 
tume Antonio Villarim S.A., Manoel Ferreira Comdrcio S.A., Felinto 
Importadora & Exportadora Ltda., Atlantida Imobilidria Ltda. e a rede 
de supermercados Celino Loureiro & Cia., a Data Shopping jd tem de- 
senvolvidos e implantados os seguintes sistemas: Contasa Pagar, Contas a 
Receber, Folha de Pagamento (mensal ou semanal), Controle de Pedi- 
dos, Faturamento e Emissao de Duplicatas, Controle de Estoque e Con- 
tabilidade. A empresa fica na Rua Maciel Pinheiro, 365 — 19 andar, 
salas 1 e 2. 



O 16 bits da Edisa 



A Edisa obteve aprovagdo da 
SEI para a industrializagao do 
E D-680, microcomputador de 
16 bits baseado no microproces- 
sador Motorola 68000L 10. O 
langamento do micro estd pre- 
visto para novembro prbximo e 
sua comercializagdo para o pri- 
meiro semestre de 1985. 

O ED-680 tem como confi- 
guragdo bdsica UCP de 512 Kby- 
tes de membria RAM, um ter- 
minal de video, uma unidade de 
disco Winchester de 80 MB, uma 
unidade de f ita Streamer de 1 /4" 
de 20 MB e uma impressora de 
200 CPS. 



A conf igu ragdo mdxima do 
equipamento caracteriza-se por 
UCP de 2 MB de membria RAM, 
unidades de disco de atd 768 
MB, oito fitas de 72 MB, contro- 
ladores de comunicagSo de 8 li- 
nhas a 9600 bps cada e supor- 
tando atb 64 terminais, albm de 
duas impressoras de 600 Ipm ou 
uma de 1500 Ipm. 

Quanto ao software, serffo 
utilizados o EDIX, nacional 
compatfvel com o UNIX, e o 
MUMPS em cooperagSo com a 
Biodata, system-house do Rio 
de Janeiro. ■ 
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O comando 

Deo 
tratamento 
de valores 
numericos 



T odo programa, seja ele em 
Assembler ou em BASIC, 
contem uma sdrie de 
manipulates com valores 
numdricos na forma de operates 
matemdticas, tais como soma,subtrato, 
multiplicato, potentiate etc. Em 
linguagem de alto nivel, essas 
manipulates podem ter uma estrutura 
funcional direta, ou seja. 
X=A+5*(4/Y)**7— SQR(B+9) por 
exemplo. No caso de linguagens de 
baixo nivel, no entanto, uma expressdo 
como esta demandaria uma estrutura^So 
de registradores bastante complexa. 
Num outro extremo, temos as strings 
ou caracteres de texto (mensagens) que, 
em Assembler, podem constituir-se 
numa grande dor de cabe?a para o 
programador, pois elas podem estar 
inseridas junto a n outras coisas, e ds 
vezes uma correto gramatical pode 
demorar horas at 6 que o erro seja 
localizado. 

Esses serdo os dois assuntos tratados 
este mes, e para que possamos dar 
partida em nossa discussdo serd 
necessdrio ter o MICRO BUG na 
membria do micro, seguindo o 
procedimento padrdo. 



OS VALORES NUMERICOS 



Em linguagem de mdquina, a opera to 
com valores numericos deve ser sempre 
cercada dos maiores cuidados e rigores, 
pois basta um s6 descuido para que todo 
o trabalho vd por dgua abaixo. 0 
principal problema diz respeito aos 
limites de valores do byte, ou seja, 

255 para um byte e 65535 para dois 
bytes (255*256+255). 

0 que acontece quando um desses dois 
limites 6 superado vai depender muito 
da organizato e do cuidado na 
programato. Em linguagem de mdquina, 
um evento desse porte 6 documentado 
por um ou dois bits da flag F. 

Vejamos dois exemplos prdticos: 

1 - supondo B=45 e A=22, o resultado 
da opera^do ADD A,B (em BASIC 
corresponderia a LET A=A+B) seria o 
Acumulador A valendo 67; 

2 — supondo B=185 e A=76, o resultado 
de ADD A ndo seria A=261 e sim A=5 
(diri'amos, a grosso modo, que o 
Acumulador deu uma volta completa, 
pois 5=261-256). 

Essa caracteristica do Assembler cone o 



risco de ser facilmente esquecida, e 
quando isso acontece os resultados das 
operates matemdticas acabam ndo 
correspondendo ao desejado. Por outro 
lado, ndo basta que os cuidados com a 
segurant operacional sejam respeitados. 
Existe um outro problema a ser 
superado, que e a representato grdfica 
de um valor qualquer na tela de video. 
Imaginemos um registrador com um 
valor aleatbrio (1 58, por exemplo). 

Para representd-lo no video 
precisariamos de tres caracteres (1 , 5 e 
8). No entanto, ndo podemos 
simplesmente enviar ao arquivo de 
imagens estes valores, pois o resultado 
seria a impressdo de tres caracteres 
grdficos isolados (acompanhe pela tabela 
de c6digos e caracteres do manual do 
micro). Teremos que traduzir esses 
valores para os caracteres 
conespondentes, ou seja, 29, 33 e 36. 
Mas, se o registrador que possui o valor 
158 6 composto de um unico byte, 
como saber quais caracteres usar para a 
impressdo, no video, de tal valor? Ai 
estd um bom problema para o 
programador Assembler... 

No MICRO BUG temos vdrias 
ocorrencias de valores numericos. Uma 
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Listagem 1 


rot i na 


IVALDE 


(identifica uni valor 


nurner i co) 


7A9E 


01 


03 15 




LD BC r 1503 


;determina posicao AT 21,3. 


7AA1 


CD 


F5 08 




CALL 08F5 




7 AA4 


2A 


OE 40 




LD HL , < 400E ) 


;posicao no video. 


7AA7 


ii 


00 00 




LD DE , 0000 


- i n i c i al i za par DE. 


7AAA 


7E 






LD A, (HL) 


• det calculo dec ou hexa. 


7AAB 


FE 


OD 




CP OD 


; espec i f i cador 


7AAD 


28 


2D 




JR Z , 7ADC 




7AAF 


00 






NOP 


jcalculo hexa. 


7 AB 0 


7E 






LD A, (HL) 


; obt em um d i g i t o . 


7AB i 


B7 






OR A 


■retorna se for espaco. 


7AB2 


C8 






RET Z 




7AB3 


FE 


1A 




CP 1A 


•retorna se for virgula. 


7AB5 


C8 






RET Z 




7AB6 


D6 


1C 




SUB 1C 


•valor real do digito. 


7AB8 


38 


10 




JR C , 7ACA 


•testa validade do digito 


7AB A 


FE 


10 




CP 10 


;na faixa de 0 a F. 


7ABC 


30 


OC 




JR NC , 7ACA 




7ABE 


EB 






EX DE , HL. 


•multiplica o acumulado em 


7ABF 


06 


04 




LD B , 04 


■ DE pela base 16. 


7AC i 


29 






ADD HL , HL 




7 AC2 


10 


FD 




DJNZ 7AC1 




7AC4 


4F 






LD C , A 


•soma o produto ao digito. 


7AC5 


09 






ADD HL , BC 




7AC6 


EB 






EX DE , HL 


;total final em DE . 


7 AC7 


23 






INC HL 


■prox i mo digito. 


7Ac;a 


18 


E6 




JR 7AAF 




7 AC A 


CD 


Cl 78 




CALL 78C1 


•imprime DIGITO ILEGAL. 


7ACD 


29 


2E 2C 


2E 








39 


34 00 


2E 








31 


2A 2C 


26 








B 1 










7 ADA 


18 


A9 




JR 7A85 


;reset 


7ADC 


23 






INC HL 


• calculo dec imal . 


7ADD 


7E 






LD A, (HL) 


• obt em um digito. 


7ADE 


B7 






OR A 


; retorna se for espaco. 


7ADF 


C8 






RET Z 




7AE0 


FE 


1A 




CP 1A 


jretorna se for virgula. 


7 AE2 


C8 






RET Z 




7 AE3 


D6 


1C 




SUB 1C 


•valor real do digito. 


7AE5 


38 


E3 




JR C , 7ACA 


;teste validade do digito na 


.7 AE7 


FE 


OA 




CP OA 


-faixa de 0 a 9. 


7 AE9 


30 


DF 




JR NC , 7ACA 




7AEB 


E5 






PUSH HL 




7AEC 


F5 






PUSH AF 




7AED 


21 


00 00 




LD HL , 0000 


• multi plica o acumulado em 


7AF0 


3E 


OA 




LD A r OA 


•DE pela base 10. 


7AF2 


06 


08 




LD B , 08 




7AF4 


29 






ADD HL , HL 




7AF5 


17 






RLA 




7 AF 6 


30 


01 




JR NC , 7AF9 




7AF8 


19 






ADD HL , DE 




7AF9 


10 


F9 




DJNZ 7 AF 4 




7AFB 


FI 






POP AF 




7 AFC 


4F 






LD C , A 


-soma o produto ao digito. 


7AFD 


09 






ADD HL,BC 




7AFE 


EB 






EX DE , HL 


•valor total em DE. 


7AFF 


El 






POP HL 




7B00 


18 


DA 




JR 7ADC 


; pr ox i mo digito. 
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das mais importantes 6 a impressao de 
um endere?o de mem6ria e seu 
conteudo. Essa impressSo pode vir na 
forma decimal (base 10) ou hexadecimal 
(base 16). Aldm disso, hi o processo 
inverso, isto 6, a partir de uma dada 
representa^o (em hexa ou decimal) 
calcula-se o valorbindrio correspondente. 
Para que essas operates sejam 
realizadas com o maior rigor, o SGM 



possui uma rotina, chamada SVALDE, 
que devolve o conteudo do par DE com 
um valor digitado pelo operador via 
teclado. Para que SVALDE funcione 
a contento, 6 preciso ter o valor 
desejado na posigflb AT 21,3 do video 
— e isso 6 obtido na inicializa^o de 
alguns comandos, como por exemplo do 
comando > M 4082. Como ]i vimos, 
existem alguns caracteres especiais » 
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O COMANDO DEO TRATAMENTO DE VALORES NUM^RICOS 



envolvidos, tais como o S que informa a 
SVALDE se o numero estd numa base 
num^rica diferente daquela na qua] o 
SGM estd ajustado (veja na edigSo 
anterior as explicates sobre o comando 
A). 

A obtento do valor bindrio 6 feita pela 
opera9?o de multiplicato digit o a 
d lgito da base com o par DE. Assim, 
para obter um digito, a rotina multiplica 
o par DE pda base especificada, soma a de 
o valor do digito e repete essa opera^ao 
at6 achar um espa^o ou virgula (usados 
como delimitador de campo). Na 
listagem 1 temos toda a rotina 
SVALDE e suas fases explicadas. 

Note, nesta listagem, como a 
multiplica9So na base 10 6 feita atravds 
de somas sucessivas, enquanto que na 
base 16 o resultado 6 obtido com 
muito mais simplicidade, somando um 
numero a si mesmo quatro vezes. Este 6 
tambem um dos motivos da preferencia 
pela base hexadecimal quando se 
programa em Assembler. Note ainda que 
os endere90S 7AAD, 7AAE e 7AAF 
contem um JUMP relativo e um byte 
vago para a mudan9a de especifica9<ro 
do comando A. 

0 prdximo passo a ser estudado 6, no 
sentido inverso, imprimir um valor 
bindrio na sua forma decimal ou 
hexadecimal, e para tanto usaremos a 
rotina SENDER que efetua as divisOes 
do valor pela base correspondente. 

Nesse ponto vamos considerar um 
importante fator que e a velocidade de 
execussffo do comando que estiver 
utilizando SENDER, pois se ela for 
baixa a rotina antes de produzir a 
impressffo do valor far4 um loop de 
alguns cent^simos de segundo. 

Note, pela listagem 2, que o processo de 
impressSo de um valor decimal 6 
extremamente simples, ao passo que 
para imprimir um numero decimal 
tivemos que lan9ar m£o de uma 
sub-rotina do sistema operacional do 
micro. 

Isso foi feito por vdrios motivos, sendo 
que o principal diz respeito k velocidade 
final de impressSo, uma vez que, usando 
as rotinas de ponto flutuante do micro, 
o trabalho de programa95o seria muito 
mais direto, por£m a uma velocidade 
por demais lenta. Com o uso das rotinas 
de ponto flutuante n£o teriamos as duas 
velocidades do comando M quando este 
estivesse imprimindo endere90S 
decimais. No final do MICRO BUG 
explicaremos como utilizar tais rotinas 
quando a velocidade nffo for fator 
primordial. 

Outro ponto a ser considerado diz 
respeito k rotina $ BYTE, a qual 
imprime um byte em hexadecimal. Ela 
6 utilizada simultaneamente para a 
impressSo do logotipo MICRO BUG, 





Listagem 2 


rotina SENDER 


(imprime endereco 


de memor i a ) 


7B02 


3A 


26 


79 


LD A, (7926) 


jdetermina velocidade de 


7805 


CB 


5F 




BIT 3 , A 


; i mpr essao. 


7807 


CC 


B7 


78 


CALL Z , 78B 


7B0A 


CB 


57 




BIT 2 , A 


;determina base do endereco. 


7B0C 


20 


OD 




JR NZ , 7B IB 




7B0E 


7C 






LD A , H 


; imprime endereco em hexa. 


7B0F 


CD 


3E 


78 


CALL 783E 




7812 


7D 






LD A,L 




7B13 


CD 


3E 


78 


CALL 7 83E 




7B16 


AF 






XOR A 


; imprime 3 espacos. 


7817 


D7 






RST 10 




7818 


D7 






RST 10 




7B19 


D7 






RST 10 




7B1A 


C9 






RET 


jretorna. 


7B18 


E5 






PUSH HL 


; imprime ender em decimal. 


7B1C 


IE 


FF 




LD E , FF 




7B1E 


01 


FO 


D8 


LD BC , D8F0 


; imprime dezena de milhar. 


7821 


CD 


El 


07 


CALL 07E1 




7B24 


01 


18 


FC 


LD BC , FC 18 


; i mpr i me milhar. 


7B27 


CD 


El 


07 


CALL 07E1 




7B2A 


01 


9C 


FF 


LD BC, FF9C 


5 i mpr i me cent ena . 


7B2D 


CD 


El 


07 


CALL 07E1 


7B30 


OE 


F6 




LD C,F6 


5 imprime dezena. 


7B32 


CD 


El 


07 


CALL 07E 1 




7B35 


7D 






LD A , L 


; i mpr i me an i dade 


7836 


CD 


EB 


07 


CALL 07EB 




7B39 


2A 


OE 


40 


LD HL , ( 400E ) 


jproduz tabulacao 


7B3C 


06 


09 




LD B , 09 




7B3E 


7E 






LD A, (HL) 




7B3F 


05 






DEC B 




7B40 


2B 






DEC HL 




7B4 1 


FE 


76 




CP 76 




7B43 


20 


F9 




JR NZ , 7B3E 




7B45 


AF 






XOR A 




7B46 


D7 






RST 10 




7B47 


10 


FD 




DJNZ 7B46 




7849 


El 






POP HL 




7B4A 


C9 






RET 


jretorna. 





Listagem 3 


COMANDO 




(display memor i a ) 




7946 


27 


7D 




def 7D27 


jcomando D. 


7D27 


AF 






XOR A 


5 imprime um espaco apos D. 


7D28 


D7 






RST 10 




7D29 


CD 


52 


7A 


CALL 7A52 


jchama SCURSOR para endereco 


7D2C 


87 






OR A 


t i n i c i al . 


7D2D 


28 


07 




JR Z , 7D36 


jrecupera ultimo endereco. 


7D2F 


CD 


9E 


7A 


CALL 7A9E 


jcalcula endereco digitado. 


7D32 


EB 






EX DE , HL 


7D33 


22 


2F 


79 


LD ( 792F ) , HL 


jguarda endereco em 792F. 


7D36 


CD 


60 


78 


CALL 7860 


;um scroll para c i ma . 


7D39 


CD 


DD 


7C 


CALL 7CDD 


; imprime linha e avanca 8. 


7D3C 


CD 


D3 


78 


CALL 78D3 


jespera tecla pressionada. 


7D3F 


B7 






OR A 


jreset se for BREAK. 


7D40 


C8 






RET Z 




7D4 1 


FE 


30 




CP 30 


jidentifica avanco. 


7D43 


28 


F 4 




JR Z , 7D3S 




7D45 


FE 


2F 




CP 2F 


jidentifica retrocesso. 


7D47 


CC 


ii 


7D 


CALL Z r 7D1 1 




7D4A 


18 


FO 




JR 7D3C 


jreinicia processo. 
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LANQAMENTO 

_. ./Micro 



0 projeto MICROBUG, desenvolvido pela equipe do CPD de MICRO 
SISTEMAS, foi concebido de forma a auxiliar os usu^rios de micros da 
A I inha Sinclair no entendimento e explorapao dos recursos da maquina. Sua 

construpao, passo a passo nas p^ginas de MS, tern tido importancia definitive no 
sentido de iniciar e desenvolver os usuarios na programapao em linguagem de maquina. 

Devido ao enorme sucesso e repercussao do MICROBUG, refletidos nas diversas cartas que temos 
recebido, a ATI EDITORA LTDA. optou por oferecer a seus leitores a versao integral do MICROBUG. Paratal, 
foi contratado um estudio especializado de forma a garantir um padrao de gravapao profissional e uma emba- 
lagem selada e inviotevel que certamente voce ir3 apreciar. Como a documentapao do MICROBUG comepou a 
ser publicada a partir da edipao de MS nP 31, oferecemos aqueles que adquirirem a fita A OPORTUN I DA- 
DE DE COMPRAR OS EXEMPLARES QUE PORVENTURA NAO POSSUAM POR UM PREQO ESPECIAL 
Aproveite esta oportunidade e usufrua, desde ja, deste incri'vel programa em sua forma integral. Preencha o 
quadro acima e mande logo seu pedido. TIRAGEM LIMITADA. 




Listagem 4 

rotina $AOND (avanco do COMANDO D) 



usando para tanto uma forma de stack 
compactada, ou seja, um unico byte 
represen ta dois caracteres grdficos ao 
mesmo tempo. Este assunto tambe'm 
veremos com mais detalhes numa 
pr6xima oportunidade, pois o 
importante no momento i fixar, atrave's 
da an£lise das listagens 1 e 2, os 
processos de obten^So e impressed de 
valores numdricos em linguagem de 
mdquina. 



0 COMANDO D 



0 comando D (display) 6 um comando 
usado para pesquisa em blocos 
Assembler. Ele permite a visualiza^So 
de uma linha no formato 
ENDERECO + 8 BYTES 
CONSECUTTVOS, identica aos blocos 
comumente publicados em MICRO 
SISTEMAS. De uma certa forma, ele 
tambem pode ser usado para conferir 
as listagens desses tais blocos. 

Os oito bytes que o comando apresenta 
podem ser impressos com seu valor em 
hexadecimal ou em caracteres grdficos. 
As palavras (tokens) do BASIC e os 
caracteres duplos, como < > , **, 
etc., s*o impressos como um ponto 
(.). O chaveamento dessa impressffo 
6 feito pelas teclas SHIFT 4. 

Todos os recursos do comando M estffo 
tambem disponiveis no comando D, 
ou seja: SHIFT S chaveia a velocidade 



7 CDD 


2A 


2F 


79 


LD HL , ( 792F ) 


7CE0 


E5 






PUSH HL 


7CE i 


Oi 


08 


00 


LD 8C , 0008 


7CE4 


09 






ADD HL,BC 


7CE5 


22 


2F 


79 


LD < 792F ) , HL 


7CE8 


El 






POP HL 


7CE9 


CD 


60 


78 


CALL 7860 


7CEC 


CD 


02 


7B 


CALL 7B02 


7CEF 


3A 


26 


79 


LD A, (7926) 


7CF2 


06 


08 




LD B , 08 


7CF 4 


CB 


4F 




BIT i F A 


7CF6 


20 


OA 




JR NZ.7D02 


7CF8 


7E 






LD A, (HL) 


7CF9 


CD 


3E 


78 


CALL 783E 


7CFC 


AF 






XOR A 


7CFD 


D7 






RST 10 


7CFE 


23 






INC HL 


7CFF 


10 


F7 




DJNZ 7CF8 


7D01 


C9 






RET 


7D02 


7E 






LD A , < HL ) 


7D03 


CB 


77 




BIT 6 , A 


7D05 


28 


02 




JR Z.7D09 


7007 


3E 


IB 




LD A, IB 


7D09 


D7 






RST 10 


7D0A 


AF 






XOR A 


7D0B 


D7 






RST 10 


7D0C 


D7 






RST 10 


7D0D 


23 






INC HL 


7D0E 


10 


F2 




DJNZ 7D02 


7D10 


C9 






RET 



de impressao das linhas; SHIFT E 
chaveia o endere?o decimal/hexadecimal ; 
K e J avan 9 am e retrocedem em oito 
bytes. ObservasSo: vale relembrar que, 



precupera end. arquivado. 

p i ncrenient a 8. 

;arquiva novo endereco. 

pscroll para cima. 

; impr inte endereco. 
pidentifica tipo impressao. 



p imprime em hexadecimal. 
; impr i me um esT>aco. 
jproximo byte, 
jretorna. 

p imprime como caracter. 
preconhece TOKENS. 

; i mpr i me 

: imprime dois espacos. 



;proximo byte. 
;ret or na. 



para interromper este e qualquer 
comando, basta pressionar BREAK, e 
que SHIFT 1 funciona como RESET 
geral do sistema. 




rot i na 9>RTRD 


(retrocesso do COMANDO D) 


7D1 i 


2A 


2F 


79 


LD HL, (792F) 


precupera end. arquivado. 


7D14 


01 


08 


00 


LD BC , 0008 


pdecrementa em 8. 


7D17 


A7 






AND A 




7D18 


ED 


42 




SBC HL , BC 




7D1 A 


22 


2F 


79 


LD < 792F ) 


parquiva novo endereco. 


7D1D 


CD 


79 


78 


CALL 7879 


pscroll para baixo. 


7D20 


OE 


BO 




LD C , BO 


pcalcula 21 linhas acima. 


7D22 


A7 






AND A 




7D23 


ED 


42 




SBC HL , BC 




7025 


18 


C5 




JR 7CEC 


•imprime os 8 bytes. 



A implementaijffo do comando D deve 
seguir procedimento identico ao dos 
outros comandos, sendo que a primeira 
modifica^ao a ser feita e na Tabela de 
Definite dos Comandos. A partir daf 
6 so digitar as listagens 3, 4 e 5. Como 
curiosidade, ap6s a implementa^So do 
comando, de um passeio pela memdria 
do micro, imprimindo, com caracteres, 
do endere?© 0 ao 65535. 



& 



Este projeto vem sendo desenvolvido pela 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenapao de Renato Degiovani. 






INFORMACOES UTEIS PARA QUEM TEM, OU NAO TEM O MICRO 



A_Filcres f az de sua empres a o seu Show Room 

microcomputadores 



! Especialistas em 
levam ate voce toda sua estrutura de Marketing. Conheca 
os CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 



A Filcres oferece aos seus usuarios assistencia tecmca 

completa biblioteca 



autorizada Prologica 
de software, diversificada linha de suprimentos, alem de 

e linguagem 



treinamento gratuito de operacao 



Venha ate aqui, ou ligue que iremos ate voce! 



filcres 



FILCRES ELETR6NICA ATACADISTA LTDA. 
Rua Aurora. 165 - CEP 01 209 - Sao Paulo - I 
Tels.: 223-1446 -220-5794 - 222-3458 
PBX: 223 7388 



LEVE NOSSO SHOW ROOM P 7 SUA CASA! 




Os usuarios tern o direito de criar comandos especiais para chamar suas rotinas'. 
E por que nao? Se o micro e TRS-80 mod. Ill, o primeiro passo ja esta dado... 



Pseudo comandos que 
chamam rotinas auxiliares 




N este artigo nos propomos a 
demonstrar como implemen- 
tar rotinas auxiliares nos mi- 
cros da linha TRS-80 modelo 
III, chamando-as por intermedio de no- 
vos pseudo comandos BASIC. Impossi- 
vel? Nem tanto, basta aproveitarmos o 
vetor da rotina de erro do interpretador 
BASIC, desviando-a para as nossas roti- 
nas. Mas para isso devemos tomar todas 
as cautelas possiveis. 

Na rotina para a qual serd desviada a 
rotina de erro, selecionaremos as cha- 
madas que contem cddigo correspon- 
dente a erro de sintaxe, devolvendo ao 
interpretador aquelas que nao contem 
esse cddigo. Esse desvio somente pode 
ser realizado em razao da existencia de 
um vetor na RAM que, ao trabalharmos 
em BASIC residente, contdm determi- 
nado valor que 6 alterado quando utili- 
zamos BASIC Disco. 

41A6H, O VETOR 
DA ROTINA DE ERRO 

Quando o interpretador encontra um 
erro de sintaxe, imediatamente carrega o 
conteudo do endere50 409 AH (16538) 
com 02. A rotina de erro faz um JUMP 
(correspondente ao GOSUB do BASICj 
para o endere90 41A6H (16806); depen- 
dendo dos valores encontrados, retorna 



Cl 6 vis Almeida Menezes 
Rubens Almeida Menezes 



ao interpretador BASIC ou vai para a ro- 
tina de erro do BASIC Disco. 

Na realidade, o vetor 41A6H abrange 
tres endere^s: 41A6H, 41A7H e 41A8H. 
Para verificarmos o conteudo dos mes- 
mos, podemos proceder de varias manei- 
ras diferentes, dependendo das caracte- 
ri Stic as do equipamento. 

Para micros sem disk drive o conteu- 
do do vetor serd: 

41A6H = C9 
41A7H - 00 

41A8H - FF (ou qualquer outro valor) 

Nesta categoria temos ainda dois ca- 
sos: micros com monitor residente (por 
exemplo, o CP-500) e micros sem moni- 
tor residente (por exemplo, o JR Sysda- 
ta). No primeiro caso, o usuario deve en- 
trar no monitor e digitar D 41A6, 03 
ENTER;atelamostrara:41A6 C9 00 00. 

No segundo caso, devemos passar o 
conteudo do monitor de hexa para deci- 
mal: 

41A6H - 16.806 
41A7H - 16.807 
41A8H = 16.808 

e digitar PRINT PEEK (16.806), PEEK 
(16.807), PEEK (16.808) ENTER. A te- 
la mostrara: 201 00 255; convertendo 
para hexadecimal, teremos: 

201 =C9H 
0 = OH 
255 - FFH 



Agora vejamos o caso dos micros 
com disk drive. Se o usudrio estiver em 
BASIC residente, os valores encontrados 
nos vetores serao os mesmos. Se estiver 
em BASIC Disco, encontrard, depen- 
dendo do sistema operacional, valores 
diversos. No DOS 500 ou TRSDOS tere- 
mos: 





EHDEREC0 




C0HTEUD0 


HEXA 




0ECINAL 


HEXA 


DECIRAL 


A 1 A 6 H 


OU 


168#6 = 


C J 


ou 195 


A 1 A 7 H 


ou 


16897 


7 B 


o u 1 2 J, 


A 1 ASH 


ou 


16898 = 


A 2 


ou 66 



OPERANDO A ROTINA DE ERRO 

Ao encontrar no vetor 41A6H o va- 
lor C9H (que corresponde ao RETURN 
do BASIC), a rotina de erro retorna ao 
interpretador BASIC. Se encontrar por 
exemplo, C3 7B42 (o C3H equivale ao 
GOTO do BASIC), fard um JUMP para 
o endere90 427BH, onde continuard 
operando, o que tambe'm significa que 
o micro estd em BASIC Disco. 

Para interceptarmos a rotina de erro, 
devemos seguir os seguintes passos: 

. guardar em um buffer os valores encon- 
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trados em 41A6H, 41A7H e 41A8H pa- 
ra uso em nossa rotina; 

. altemar os conteudos de 41A6H, 41A7H 
e 41A8H para valores correspondentes 
ao endere^o onde esta a nossa rotina, a 
qual inicia em 7000H: 



C0NTEUD0 


VALOR 0RICINAL 


NOVO 




EM BASIC-DISCO 


C0NTEUD0 


« 1 A6H 


C iH 


C 3 H 


* 1 A7H 


7 B H 


• •H 


A 1 ASH 


«2H 


7 # H 



A primeira parte da rotina Assembler 
(listagem 1) realiza automaticamente es- 
ses dois passos (linhas 360 a 500). Ja a 
segunda parte, que recebe o desvio da 
rotina de erro, encarrega-se de verificar 
certas cond^oes. Vejamos: 

1 - se o codigo de erro 6 02, a rotina 
continua; se nao for, retorna para o in- 
terpretador ou vai para o BASIC Disco; 

2 - sendo o codigo 02, verifica se a 
string apontada por HL 6 igual a um dos 
novos pseudo comandos BASIC que car- 
regamos em BC ; 

3 - se HL for igual a BC, a rotina apon- 
tada 6 executada; 

4 - se HL nao for igual a nenhum dos 
valores apontados por BC, a rotina re- 
torna para o interpretador ou vai para o 
BASIC Disco. 



CRIANDO NOVOS 
PSEUDO COMANDOS BASIC 

Para a segunda parte da rotina Assem- 
bler (linhas 520 a 1030), precisamos de- 
finir qual ou quais novos pseudo coman- 
dos BASIC vamos criar e o que essas ins- 
tru95es deverao executar. Vamos a tres 
exemplos: 

. Exemplo I - Criamos o comando 
SOM e uma rotina que gera som. Toda 
vez que entramos com SOM em um pro- 
grama BASIC ou em comando direto, a 
rotina SOM sera executada. 

. Exemplo 2 — Criamos o comando 
CLASS e uma rotina Assembler que rea- 
liza a classifica 5 ao de strings. Ao entrar- 
mos com CLASS em um programa BA- 
SIC apropriado, a classifica^o das 
strings sera executada com extrema ra- 
pidez. 

. Exemplo 3 — Criamos o comando 
GRSYS e uma rotina Assembler para 
gravar programas em SYSTEM. Ao ne- 
cessitarmos utilizar este programa bastard 
entrar com GRSYS. 

Portanto, podemos chamar qualquer 
programa em linguagem de maquina que 
esteja na memoria por um novo coman- 
do criado por nos. 

Os novos comandos, no entanto, nao 



podem conter nenhuma das palavras re- 
servadas do BASIC, assim como palavras 
que possam dar significado de comando. 
Assim, COR, LISTA, CERTO, ERRA- 
DO, LETRA, REMEDIO etc. nao po- 
dem ser utilizadas. 

Para ter certeza de que o seu novo 
comando nao content nenhuma das pa- 
lavras reservadas, entre no micro com 
uma linha, dando como nome da varia- 
vel o tema que voce quer usar. Por 
exemplo; 

10 ERRADO =100 ou 
10 CERTO = 50 ou 
10 VALOR =100 

Entre com o comando RUN. Se na tela 
aparecer uma mensagem de erro, e por- 
que voce esta usando uma palavra reser- 
vada do BASIC. Caso contrario, o novo 
comando sera valido. 

ROTINAS EXEMPLO 

As rotinas criadas para demonstra^ao 
pratica sao bem simples e rapidas, facili- 
tando assim o entendimento de todo o 
processo. 

Nao ha quern nao fique extasiado ao 
ver rodar o programa Attack Force (a 
maioria dos usuarios deve conhecer) e 
sua fantastica introdu^ao: 

NOS CONTROLAMOS SEU MICRO - 
CONTROLAMOS O VERTICAL etc.,® 







FOLHA DE PAGAMEIMTQ 



A Nasajon Sistemas, uma empresa 
especializada no desenvolvimento de 
programas, est£ langando no merca- 
do, em carter exclusivo, o mais com- 
pleto sistema de Folha de Pagamento 
para microcomputadores dos tipos 
CP 500, Digitus, Naja ou qualquer 
outro da linha TRS 80. 

O programa emite os seguintes rela- 
tdrios: 



• Relapao de Empregados. 

• Quadro de Hordrios. 

• Folha de Pagamento. 

• Resumo da Folha. 

• Relapao de FGTS. 

• Guia de FGTS. 

• Relapao de IR. 

• Guia de IAPAS. 

• RelapSo de Bancos. 

• Recibo de Pagamento e outros. 

Prepo Especial de lanpamento: 

Cr$ 584.000,00 

Incluindo diskette, manual completo, ta- 
belas de planilhas, assistencia t6cnica total 
e garantia de um ano. 



a urip 30H.WU,W ; V 

Inclumdo diskette, manual completo. ta- — — 

betas de planilhas. assistencia t6cnica total ||_ 

e oarantia de um ano. - 1 ~ 

— 

. 

- - 

I LJ/utemo/ 

Voce encontra esse e outros programas em nossos revendedores credenciados: 

Rio de Janeiro: Casa Garson: 252-9191; 325-6458; 541-2345 e 252-2050 r.179 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322- 
Salvador: Offlcina: 248-6666 r. 268 - Sysdata: 242-9394 - S3o Paulo: Microprocess: 64-0468 - Jundiaf-SP: 

Sistemas: 434-6640. 



/l/temo/ 



Av. Rio Branco, 45 grupo 1311 
Tel.: (0211 263-1241 e 233-0615 
Rio de Janeiro — Cep 20090. 






PSEUDO COMANDOS QUE CHAMAM ROTINAS AUXILIARES 



etc. As telas aparecem e desaparecem 
milagrosamente na horizontal, na verti- 
cal, alem de outros tantos efeitos que 
sao produzidos. 

Demonstraremos o principio destes 
efeitos por intermedio de tres sub-roti- 
nas, e para tal vamos criar tres novos 
pseudo comandos BASIC: 

. TELA — tera a finalidade de guardar, 
em uni buffer , uma tela completa de vi- 
deo no momento em que for chamada. 

. CERTA — mostrara a tela que foi guar- 
dada pelo pseudo comando TELA. 

. VIRADA — mostrara a tela totalmen- 
te invertida. 

A sub-rotina TELA localiza-se, em nossa 
rotina' Assembler, entre as linhas 1040 e 
1100; CERTA entre 1110 e 1170 e VI- 
RADA entre 1 1 80 e 1360. 

Ap6s ter executado uma das sub-roti- 
nas apontadas por um dos novos pseudo 
comandos BASIC, a quarta parte do 
programa em Assembler se encarrega de 
zerar o indicador do c6digo de erro e re- 
tomar ao interpretador BASIC ou BA- 
SIC Disco. 

Quern tiver um editor Assembler, 
basta apenas entrar com as linhas da lis- 
tagem 1, observando que: 



Micro 
informatica 



AssistSncia t6cnica: 
Linhas TRS 80. PC ; 

APPLE e KAYPRO 

Autorizados: ' 

Proldgica. Digitus e : 
Sysdata 



; Contratos de 
1 : manutengSo 

Desenvolvimento e 
; venda de software 

1 Consultoria 



Micros e perif6ricos 
nacionais e 
importados 

R. Baraode Mesquita 
n.° 663 Lis. 3 e 4 
Tel.: (021)238-2186 



Listagem 1 - ROTERR 




CLOVIS RUBENS CLOVIS RUBENS CLOVIS RUBENS CLOVIS RUBENS 



>>>>>>>>>>>>>>> 



LISTAGEM 1 



>>>>>>>)>>>>>>> ROTERR 

.....a. ...... PROGRAMA DEMONSTRATIVO 

............. DA UTILIZACAO OA ROTINA 

DE ERRO OE SINTAXE 



<<<<<<<<<<<<<<<< 



<<<<<<<<<<<<<<<<< 



AUTORESs CLOVIS E RUBENS ALMEIDA MENEZES 
DATA: 23/FEV/1984 

PARA MICROS COMPATIVEIS COM TRS-80 MODELO III 
COM 48K DE RAM << PROTEGER COM 61439 >> 

CLOVISRUBENSCL OVISRUBENSCLOVI SRUBENSCLOVISRUBENSCLOVI SRU 



41A6 




00270 


VETERR 


EQU 


41A6H jVETOR ROTINA ERRO 


409A 




00280 


CODERR 


EQU 


409AH ; GUARDA 


CODIGO DE ERRO 


40E6 




00290 


ULTBYT 


EQU 


40E6H jPONTEIRO ULTIMO COMANDO BASIC 


1D1E 




00300 


PROXIN 


EQU 


1D1EH ;RETORNO PARA INTERPRETADOR 


25A1 




00310 


CPSTRG 


EQU 


25A1H • COMP AR A HL E BC 


3C00 




00320 


VIDEO 


EQU 


3C00H ; INICIO 


AREA DE VIDEO 


FCOO 




00330 


GUARDA 


EQU 


OFCOOH s INICIO 


DO BUFFER 


FFFF 




00340 


FIMBUF 


EQU 


OFFFFH jFIM DO 


BUFFER 


FOOO 




00350 




ORG 


OFOOOH 




FOOO 


21A641 


00360 


PREROT 


LD 


HL, VETERR 


jCARREGA COH END. DO VETOR 






00370 








;DE ERRO 


FOD3 


ES 


00380 




PUSH 


HL 


; SALVA REGISTRO 


F004 


1159F0 


00390 




LD 


DE, RETROM 


jENDER.DE transferencia 


F007 


010300 


00400 




LD 


BC , 0003H 


; CARREGA COM 3 


FOOA 


EOBO 


00410 




LOIR 




; TRANSF.CONTEUDO DE "HL" 






00420 








•PARA "DE" 


FOOC 


El 


00430 




POP 


HL 


jRECUPERA REGISTRO 


FOOD 


36C3 


00440 




LD 


<HL ) , 0C3H 


sVALOR A SER MUDADO 


FOOF 


23 


00450 




INC 


HL 


j INCREMENTA 


FOIO 


1119F0 


00460 




LD 


DE, INICIO 


; CARREGA COM END. P/JUMP 


F013 


73 


00470 




LD 


<HL ) ,E 


> TRANSFERS VALOR DE "E" 


FOI 4 


23 


00480 




INC 


HL 


S INCREMENTA 


F015 


72 


00490 




LD 


<HL > , D 


t TRANSFERE VALOR DE "D" 


F016 


C9 


00500 




RET 




j VOLTA PARA BASIC 


F017 


0000 


00510 




DEFU 


0000 




F019 


F5 


00520 


INICIO 


PUSH 


AF 


t SALVA 


FOI A 


CS 


00530 




PUSH 


BC 


jTODOS 


FOIB 


DS 


00540 




PUSH 


DE 


5 0S 


FOIC 


E5 


00550 




PUSH 


HL 


; REGISTROS 


F01D 


7B 


00560 


SINERR 


LD 


A,E 


8 VER IFICA SE E ’ ERRO 






00570 








j DE SINTAXE 


FOIE 


FE02 


00580 




CP 


02 


j SE FOR 2 E’ ERRO 






00590 








;DE SINTAXE 


F020 


2033 


00600 




JR 


NZ.FIMl 


; SE NAO FOR RETORNA 






00610 








jPARA 0 BASIC 


F022 


2AE640 


00620 


PEGCAR 


LD 


HL , < ULTBYT ) 


jPEGA PROXIMO CARACTER 


F025 


7E 


00630 




LD 


A, < HL > 


; DO PROGRAMA BASIC 


F026 


B7 


00640 




OR 


A 


; VER IFICA SE E ’ ZERO 


F027 


2004 


00650 




JR 


NZ, PROXCO 


;SE NAO FOR PASSA PARA 






00660 






;PROXIMA INSTRUCAO 


F029 


23 


00670 


AVANTE 


INC 


HL 


; SENDO ZERO PULA 


F02A 


23 


00680 




INC 


HL 


jENDERECO OA PROXIMA 






00690 








;LINHA E TAMBEM 0 


F02B 


23 


00700 




INC 


HL 


; NUMERO DA CORRENTE 


F02C 


23 


00710 




INC 


HL 


sLINHA 


F02D 


07 


00720 


PROXCO 


RST 


10H 


; PROCUR A PROXIMO CARACTER 


F02E 


E3 


00730 




PUSH 


HL 


8 SALVA REGISTRO 


F02F 


01A4F0 


00740 


COMPAR 


LD 


BC , PSDCM1 


8 CARREGA COM END. DA 


F032 


1604 


00750 




LD 


D , 04 


8 STRING DO NOVO COMANDO 


F034 


SA 


00760 




LD 


E,D 


1 "DE" CONTERA’ 0 TAMANHO 






00770 








j DA STRING 


F035 


CDA125 


00780 




CALL 


CPSTRG 


8 COMPAR A "HL" E "BC" 


F038 


2822 


00790 




JR 


Z , TELA 


; SE FOR IGUAL VAI PARA 






00800 








;A ROTINA "TELA" 


F03A 


01A8F0 


00810 




LD 


BC , PSDCM2 


; SE NAO FOR IGUAL 


F03D 


El 


00820 




POP 


HL 


jRECUPERA REGISTRO 


F03E 


E5 


00830 




PUSH 


HL 


8 SALVA NOVAMENTE 


F03F 


1605 


00840 




LD 


0,5 


sREPETE INST . ANTER IORES 


F041 


SA 


00850 




LD 


E , D 


S PARA SEGUNDO NOVO 


F042 


CDA125 


00860 




CALL 


CPSTRG 


8 COMANDO 


F045 


2823 


00870 




JR 


Z, CERTA 


j SE FOR IGUAL VAI PARA 






00880 








8 A ROTINA "CERTA" 


F047 


01ADF0 


00890 




LD 


BC.PSDCM3 


8 SE NAO FOR 


F04A 


El 


00900 




POP 


HL 


; REPETE 


F04B 


ES 


00910 




PUSH 


HL 


j TUDO 


F04C 


1606 


00920 




LD 


0,6 


; NOVAMENTE 


F04E 


5A 


00930 




LD 


E ,D 


f 


F04F 


CDA125 


00940 




CALL 


CPSTRG 


I 


F052 


2824 


00950 




JR 


Z, VIRADA 


8 SE FOR VAI PARA 






00960 








; A ROTINA "VIRADA" 


F054 


El 


00970 




POP 


HL 


•SE NAO FOR RECUPERA 






00980 








jTODOS OS REGISTROS 


F055 


El 


00990 


FIM1 


POP 


HL 


; INICI AIS QUANGO 


F056 


01 


01000 




POP 


DE 


; DO DESVIO 


F057 


Cl 


01010 




POP 


BC 


;DA 


F058 


FI 


01020 




POP 


AF 


•ROTINA DE ERRO 


F059 


52 


01030 


RETROM 


DEFM 


’RET ’ 


; E RETORNA AO BASIC 



MICRO SISTEMAS. agosto/84 








F05C E5 


01040 


TELA 


PUSH 


HL 


, SALVA REGISTRO 


F05D 21003C 


01050 




LD 


HL, VIDEO 


; CARREGA C/END. INIC. VIDEO 


F060 1100FC 


01060 




LD 


DE, GUAR DA 


,END. INICIAL DO BUFFER 


F063 010004 


01070 




LD, 


BC.1024D 


;8UANT. BYTES P/TRANSFERIR 


F066 EDBO 


01080 




LOIR 




, TRANSFERE CONTEUDO 




01090 








, DE "HL" PARA "DE" 


F068 182A 


01100 




JR 


FIM2 


, VAI P/FIM DA ROTINA 


F06A E5 


OHIO 


CERTA 


PUSH 


HL 


, SALVA REGISTRO 


F06B 2100FC 


01120 




LD 


HL, GUARDA 


, END. INICIAL DO BUFFER 


F06E 11003C 


01130 




LD 


DE, VIDEO 


; ENDERECO INICIAL VIDEO 


F071 010004 


01140 




LD 


8C.1024D 


,8UANT. BYTES A TRANSFER IR 


F074 EDBO 


01150 




LDIR 




, TRANSFERE CONTEUDO 




01160 








,DE "HL" PARA "DE" 


F076 181C 


01170 




JR 


FI M2 


, VAI P/FIM DA ROTINA 


F078 E5 


01 1 BO 


VIRADA 


PUSH 


HL 


, SALVA REGISTRO 


F079 21FFFF 


01190 




LD 


HL, FIMBUF 


, CARREGA COM ULTIMO 




01200 








, ENDERECO DO BUFFER 


F07C 11003C 


Q1210 




LD 


DE, VIDEO 


,ENDER. INICIAL DO VIDEO 


F07F 010004 


01220 




LD 


BC.1024D 


,8UANT. BYTES A TRANSFERIR 


F082 7E 


01230 


LOOP 


LD 


A, (HL) 


; CARREGA "A" COM CONTEUDO 




01240 








jAPONTADO POR "HL" 


F083 12 


01250 




LD 


( DE > , A 


jPASSA CONTEUDO DE "A" 




01260 








,PARA 0 APONTADO POR "DE" 


F084 13 


01270 




INC 


DE 


, INCREMENTA "DE" 


F085 2B 


01280 




DEC 


HL 


, DECREME NT A "HL" 


F086 OB 


01290 




DEC 


BC 


jDECREMENTA "BC" 


F0B7 3E00 


01300 




LD 


A, 00 


, CARREGA "A" COM ZERO 


F089 A9 


01310 




XOR 


C 


; CER IFICA SE "C" E' ZERO 


F08A 20F6 


01320 




JR 


NZ.LOOP 


, SE NAO FOR RETORNA 


F08C 3E00 


01330 




LD 


A, 00 


, MESMA CO ISA 


F08E A8 


01340 




XOR 


6 


, COM 0 REGISTRO "B" 


F08F 20F 1 


01350 




JR 


NZ .LOOP 


, SE NAO FOR ZERO RETORNA 


F091 C394F0 


01360 




JP 


FI M2 


.SE "BC" FOR ZERO VAI 




01370 








1 P AR A ROTINA FIM2 


F094 El 


01380 


FIM2 


POP 


HL 


jRECUPERA 


F095 01 


01390 




POP 


DE 


1 


F096 01 


01400 




POP 


DE 


1 T ODOS 


F097 01 


01410 




POP 


DE 


1 


F09B Cl 


01420 




POP 


BC 


,os 


F099 FI 


01430 




POP 


AF 


, REGISTROS 


F09A AF 


01440 




XOR 


A 


, ZERA 0 ACUMULADOR 


F09B 329A40 


01450 




LO 


(CODERR) , A 


, COLOCA ZERO COMO 




01460 








,CODIGO DE ERRO 


F09E 2 B 


01470 




DEC 


HL 


jDECREMENTA "HL" 


F09F D7 


01480 




RST 


10H 


,PEGA PROXIMO CARACTER 


FOAO Cl 


01490 




POP 


BC 


jRECUPERA "BC" 


F0A1 C31E1D 


01S00 




JP 


PROXIN 


, RETORNA P/INTERPRETADOR 




01510 








; BASIC 


F0A4 54 


01520 


PSDChl 


DEFM 


'TELA ' 


,PR IMEIRO NOVO COMANDO 


F0A8 43 


01530 


PSDCM2 


DEFM 


'CERTA ' 


, SEGUNDO NOVO COMANOO 


FOAO 56 


01540 


PSDCM3 


DEFM 


'VIRADA ' 


,TERCEIRO NOVO COMANDO 


F000 


01550 




END 


PREROT 


jFIM INICIO 


00000 TOTAL 


ERRORS 










30334 TEXT 


AREA BYTES LEFT 






AVANTE F029 


00670 










CERTA F06A 


OHIO 


00870 








CODERR 409A 


00280 


01450 








COMP AR F02F 


00740 










CPSTRG 25A1 


00310 


00780 


00860 00940 




FIM1 F055 


00990 


00600 








FIM2 F094 


01380 


01100 


01170 01360 




FIMBUF FFFF 


00340 


01190 








GUARDA FCOO 


00330 


01060 


01120 






INICIO F019 


00520 


00460 








LOOP F082 


01230 


01320 


01350 






PEOCAR F022 


00620 










PREROT F000 


00360 


01550 








PROXCO F02D 


Q0720 


00650 








PROXIN 101 E 


00300 


01500 








PSDCM1 F0A4 


01520 


00740 








PSDCM2 F0A8 


01530 


00810 








PSDCM3 FOAO 


01540 


00890 








RETROM F059 


01030 


00390 








SINERR F01D 


00560 










TELA F05C 


01040 


00790 








ULTBYT 40E6 


00290 


00620 








VE T ERR 41A6 


00270 


00360 








VIDEO 3C00 


00320 


01050 


01130 01210 




VIRADA F078 


01180 


00950 









1 — A rotina e para micros com 48 Kb. 

2 - Para micros com 16 Kb, deve-se tro- 
car as seguintes linhas: 

210; com 16 Kb de RAM proteger com 
((28671)) 

310; GUARDA EQU 7C00H; inicio do 
buffer 

320; FIMBUP EQU 7FFFH ;fim do buf- 
fer 

330; ORG7000H; 

3 - Em micros com cassete, ap6s ter en- 
trado com todas as linhas, grave o pro- 
grama objeto com o nome ROTERR ou 
outro que melhor lhe convier. Para uso 
posterior, grave tambem o programa 
fonte. 

4 - Em micros com disk drive, grave o 
programa objeto com ROTERR/CMD 
ou outro nome qualquer; grave tambem 
o programa objeto com ROTERR/SOR 
ou outro nome e extensao. 

Agora vejamos como utilizar o pro- 
grama ROTERR, considerando, em pri- 
meiro lugar, a versao cassete. Ao ligar o 
micro, a pergunta inicial ? MEM respon- 
da com 28671 para 16Kb de RAM, ou 
61439 para 48 Kb de RAM. Carregue o 
programa com o com an do SYSTEM, e 
quando aparecer no video a mensagem 
* ?, aperte a tecla BREAK para sair do 
SYSTEM. Em seguida, digite: POKE 
16526,00 : POKE 1 6527,240. XMJSR(X) 
ENTER (para micros com 48 Kb) ou 
POKE 16526,00 : POKE 16527,1 12:X 
= USR (X) ENTER (para micros com 
16 Kb). 

Para quern utiliza BASIC Disco, en- 
tre no DOS com LOAD ROTERR/CMD 
e logo depois passe para BASIC Disco. 

A pergunta ?MEM responda com 61439 
e digite DEFUSR0- & HF000 X -- USR0 
(X) ENTER. 

Pronto. Tanto num como no outro 
caso, voce podera usar a vontade os tres 
novos pseudo comandos BASIC (TELA, 
CERTA e VIRADA) em comando dire- 
to ou em um programa BASIC. 

VERSAO BASIC DO 
PROGRAMA ROTERR 

A versao para o BASIC podera ser 
feita ccm o auxilio da listagem 2 (equi- w 
pamentos com 16 Kb) ou da listagem 3 m 






PSEUDO COMANDOS QUE CHAMAM ROTINAS AUXILIARES 



I 

Listagem 2 



to 

15 '• LISTAGEM 2 * 

20 ’• PROGRAMA DEMONSTRATING • 

25 ’» DE UTILIZACAO DA ROTINA DE ERRO DE SINTAXE * 

30 '» DO INTERPRETADOR BASIC PARA CRIAR NOVOS • 

35 ’■ PSEUOOS COMANDOS BASIC • 

40 ’• PARA MICRO COM 16K OE RAM « 

45 ’• MONTADO POR CLOVIS E RUBENS ALMEIDA MENEZES » 

50 '• SAO PAULO 22/MARCO/1904 » 

55 ’• « 

60 

65 ' 

70 CLS x T-0 

75 PRINT3150, ">>>>>>> R 0 T E R R <<<<<<<" 

BO PR INT9206 , "NOVOS PSEUDOS COMANDOS BASIC A DISPOSICAO" 

85 PR INT3334 , "TELA « GUARDA NA MEMORIA UMA TELA DO VIDEO" 

90 PR INT3398 , "CERT A - MOSTRA A TELA INICIAL NA POSICAO NORMAL" 

95 PR INT3462 , "VI RADA « MOSTRA A TELA INICIAL INVERTIDA" 

100 PR INT3590 , "APERTE < ENTER > PARA CONTINUAR" 

105 AS-INKEY* s IF A*-"", 105 ELSE IF A*< >CHR*< 13) , 105 
110 CLS « PR I NT3130 , "VER IFICANDO CONTEUDOS DE DATA" 

115 FOR X«i TO 500 x NEXT 

120 CLS x L-0 x D-0 J N-0 » FOR X-l TO 157 s READ R 
125 PR INT3L«64*D , R j : D-D*6 X N-N+R X IF D>58,D«0 x L-L+l x NEXT 
ELSE NEXT 

130 IF N< >15632, CLS x PR INT3130, "ERRO NOS VALORES DE DATA" x END 
135 READ R 

140 IF R< >999, CLS X PR INT31 30 , "VER IFIQUE OUANTIDADE DE DATA" x E 
ND 

145 FOR X-l TO 27 x READ H X Z-Z+H I NEXT 

150 IF Z< >1444, CLS X PR INT3130 , "SEGUNDO GRUPO DE DATA C/ERRO" X 
END 

155 CLS 

160 PRINT3140, "VALORES DE DATA AP ARENTEMENTE CORRETOS" 

165 FOR X-l TO 1500 x NEXT 

170 CLS I PR INT3208 , "DESE JA GRAVAR 0 PROGRAMA ? < S/N > " 

175 Dl-INKEY* x IF DS-"",175 
180 IF 0S-"S",370 ELSE IF DS-"N",390 ELSE 175 
105 DATA 245,197,213,229,123,254,2,32,51,42 
190 DATA 230,64,126,183,32,4,35,35,35,35 
19S DATA 215,229,1,164,112,22,4,90,205,161 
200 DATA 37,40,34,1,160,112,225,229,22,5 ’ 

205 DATA 90,205,161,37,40,35,1,173,112,225 



L-L + l x NEXT 



210 DATA 229,22,6,90,205,161,37,40,36,225 
, 215 DATA 225,209,193,241,82,69,84,229,33,0 
220 DATA 60,17,0,124,1,0,4,237,176,24 
225 DATA 42 , 229 , 33 , 0, 124 , 1 7 , 0, 60 , 1 , 0 
230 DATA 4,237,176,24,28,229,33,255,127,17 
235 DATA 0,60,1,0,4,126,18,19,43,11 
240 DATA 62,0,169,32,246,62,0,168,32,241 
245 DATA 195,148,112,225,209,209,209,193,241,175 
250 DATA 50,154,64,43,215,193,195,30.29,84 
255 DATA 69 , 76 , 65 , 67 , 69 , 82 , 84 , 65 , 86 , 73 
260 DATA 82,65,68,65,195,25,112,999 
265 A-28697 x J-28761 x K-16B06 
270 CLS « D-0 x p«0 x L-0 : N-0 
275 FOR X-0 TO 153 
280 READ P x POKE A*X,P 

285 PRINT8L»64*D,P j x D-D+6 x N-N*P x IF 0>58,D=0 
ELSE NEXT 
290 FOR X-0 TO 2 

295 READ P x POKE K*X,P x PRINT P," ", 

300 NEXT 

305 FOR X-0 TO 2 
310 POKE J*X,FX(X> 

315 NEXT 

320 CLS I PRINT3130, "TERMINADO >> BOA SORTE << " 

325 READ B x FOR X-0 TO 26 x READ P X POKE 15554+X.P x NEXT 
330 FOR X-l TO 500 I NEXT 
335 TELA 

340 CLS x VIRADA x FOR X-l TO 400 x NEXT 
345 CLS i CERTA x FOR X-l TO 400 x NEXT 
350 GOTO 340 

355 DATA 67 , 32 , 76 , 32 . 79 , 32 . 86 , 32 , 73 , 32 
360 OATA 03,32,32,69,32,32,82,32,85,32 
365 DATA 66,32,69,32,78,32,83 

370 CLS x PRINT3130, "PREPARE GRAVADOR E APERTE ENTER" 

375 At-INKEY* X IF A*-"", 375 ELSE IF Ai< >CHR* ( 1 3 ) , 375 
380 CSAVE"R" 

385 CLS I PR INT31 30 , "GR AVACAO ENCERRADA" x FOR X-l TO 500 I NEXT 
390 CLS I PR INT8194 , " INI C I ANDO POKE NA MEMORIA" 

395 FOR X-l TO 500 I NEXT 

400 FOR X-0 TO 2 

405 FZ< X ) -PEEK < 1 60O6*X ) 

410 NEXT 

415 RESTORE x GOTO 265 



(para micros com 48 Kb). Deve-sc, no 
entanto, tomar cuidado quanto aos valo- 
res de DATA (um contador informara se 
houver erro na digita^ao). 

Tendo entrado com o programa, aper- 
te RUN; se todos os valores de DATA 
estiverem corretos, o programa pergun- 
tara se voce o deseja gravar. Apos te-lo 



saJvado, o programa continuara sua exe- 
cu?ao e os efeitos serao demonstrados 
na tela do micro. Se desejar, entre com 
o comando NEW e digite outro progra- 
ma utilizando os novos pseudo coman- 
dos. Observa^ao: nunca de RUN duas 
vezes seguidas no programa ROTERR. 
pois os enderefos dos vetores ficarao 



trocados, e qualquer palavra que conte- 
nha erro fara com que o micro fique em 
looping continuo. 

As rotinas criadas para o programa 
ROTERR s£o bastante simples, pois a 
nossa finalidade principal foi demons- 
trar como se pode criar pseudo coman- 
dos BASIC. 0 aproveitamento e aper- 
fei^oamento dos principios explanados 
ficarao por conta da imagina^o do leitor. 

BIBLIOGRAFIA 

1 - HOWE, H., TRS-80 Assembly Lan- 
guage 

2 - FARVOUR, J., Microsoft BASIC 
Decoded & Other Mysteries 

3 - COMANDER, J., 80 Micro Compu- 
ting (7/80) 

4 - LEVENTHAL, L. R., Z80 Assem- 
bly Language Programing ■ 
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Cldvis Almeida Menezes 6 economists e ad- 
ministrador e Rubens Almeida Menezes 6 pro- 
gramador. Ambos audotidatas, deram os pri- 
meiros passos em computapao com um PC- 
1271 em marpo de 1983 e atualmente pos- 
suem tambdm um JR Sysdata e um CP -500 
com do is disk drives. 




'»*#**«**##*#**#*****##«#«#*#*#»###*##*****»**#**«*#####*#*#* 
'# * 
'* LISTAGEM 3 * 

'* ALTERACOES DA LISTAGEM 2 PARA MICROS COM 48K DE RAM * 

'* MONTADO POR CLOVIS E RUBENS ALMEIDA MENEZES * 

'*M****«*»*#***#***##*#tt***ttX**ttft***»******tf#«****tt*#**tt****tt 



ALTERE NO PROGRAMA AS LINHAS SEGUINTES: 
PARA MICRO COM 48K DE RAM 
130 IF N< >16805, CLS : PR INT3130, "ERRO NOS VALORES DE DATA' 
195 DATA 215,229,1,164,240,22,4,90,205,161 
200 DATA 37,40,34,1,168,240,225,229,22,5 
205 DATA 90,205,161,37,40,35,1,173,240,225 
215 DATA 225,209,193,241,195,123,66,229,33,0 
220 DATA 60,17,0,252,1,0,4,237,176,24 
225 DATA 42,229,33,0,252,17,0,60,1,0 
230 DATA 4,237,176,24,28,229,33,255,255,17 
245 DATA 195,148,240,225,209,209,209,193,241,175 
260 DATA 82,65,68,65,195,25,240,999 
265 A= -4071 : J= -4007 : K=16806 



: END 
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UM MICRO ACIMA 
DE QUALQUER SUSPE 






K<% 









O Nexus 1600 conquistou a pre- 
ferencia dos usudrios brasileiros 
de microcomp ut adores compati- 
veis com IBM-PC. Tambem ndo 
era para menos. Afinal quem 
ana lisa a linba de micros de 
16 bits sabe que a qualidade do 
produto, a garantia de con- 
tinuidade de produqdo e de 
acompanhamento dos lanqa- 
mentos da IBM no exterior., 
sdo fundamental para o su- 
cesso, a medio e longo prazo, 
desta nova linha de equipa- 
mentos. E quem estd no mer- 
cado de informdtica sabe que 
somente o Nexus 1600 pode ofe- 
recer esta garantia. Operando iso- 
ladamente, funcionando como siste- 
ma multiusudrio, com ate 16 termi- 
nals ou emulando um terminal do 




computador de grande porte, o Ne- 
xus 1600 e o “IBM-PC COMPATI- 
VEL ” de melhor performance. 

Alem disso, o Nexus 1600 e o unico 
micro “IBM-PC COMPATIVEL” 
aprovado pela SEI. Isto significa 
que somente o Nexus 1600 e pro- 
duzido com peqas e componen- 
tes adquiridos legalmente no 
exterior, diretamente do fa- 
bricate de chips, com contro- 
le de qualidade e garantia de 
de fomecimento. Fomeci- 
mento hoje e amanha. 
A garantia e assisten- 
cia tecnica ao Nexus 1600 
— e prestada diretamente 
pelo fabricate, em todo 
o pats. Com o Nexus 1600 seu 
micro ndo fica parado. 

A Compumicro e o fabricate garantem. 




Tudo o que voce precisa para implantar um NEXUS 1600 na 
sua empresa voce encontra na Compumicro. Levantamento de 
necessidades, especificapao de configuragoes, treinamento, for- 
necimento de Software nacional e importado, desenvolvimento 
e implantagao de sistemas, com a garantia da experiencia de 
quem mais entende de 16 bits no Brasil. 




VENDA — ALUGUEL — LEASING 



O maior revendedor NEXUS 
do Rio de Janeiro com os 
menores pregos do mercado 



OOfTPLhtlD 

INFORMATICA EMPRESARIAL LTDA. 

Rua Seta de Setembro, 99 — 119 andar 
Tel. PBX 1021) 224-7007 
CEP 20050 — Rio de Janeiro — RJ 






rodada /MS 



Voce tem um micro Sinclair, nao sabe telegrafia mas gostaria de aprender? 
Pois entao este programa foi feito "sob medida" para voce. Conhega o... 

Codigo Morse 
a moda Sinclair 

Jorge A. C. Bettencourt Soares 



E ste programa educativo para micros da linha Sinclair 
traduz as letras do alfabeto em sequences de bips so- 
noros, de acordo com o cddigo Morse. A velocidade de 
tradufao dos simbolos pode ser variada, permitindo 
que cada usudrio selecione a velocidade que mais convier ao 
seu e st agio de aprendizado. 

0 programa oferece tres modos de opera 5 ao distintos. No 
modo 1 6 emitida uma seqiiencia de bips sonoros corresponden- 
tes a uma letra ou algarismo ao acaso. 0 programa fica aguar- 
dando que seja acionada a tecla correspondente aos bips emiti- 
dos, quando entao emitird uma sdrie de diferentes sinais, e as- 
sim sucessivamente. Cada vez que for digitada uma tecla erra- 
da, o programa continuard emitindo a mesma seqiiencia de si- 
nais, s6 mudando quando for acionada a tecla correta. £ possf- 
vel bisbilhotor qual cardter alfanumdrico deu Origem d sdrie de 
bips produzida acionando a tecla. (ponto). Durante um segundo 
ficard visivel no centro da tela do monitor a resposta correta a 
ser teclada. 

No modo 2 o usudrio vai teclado letras ou algarismos que 
sdo instant aneamente traduzidos em caracteres Morse, como 
se estivesse operando uma estasao telegrdfica atravds de um te- 
clado. 

No modo 3 o programa emite, seqiiencialmente, um arquivo 
completo de caracteres Morse. Inicia traduzindo a sdrie de alga- 
rismos de 0 a 9, passa para o alfabeto completo de A a Z e vol- 
ta ao infcio, repetidamente. 

Para carregar o programa, digite inidalmente as instrufbes 
1 a 8, e teste algum possfvel erro grosseiro de digita^ao rodan- 
do o programa (RUN). Liste em seguida, e verifique que a pri- 
meira instru^do (1 REM) mudou de aspecto, apresentando ago- 
ra a rotina em Assembler, a qual emitird os bips sonoros. Se 
quiser deixar o programa mais elegante, apague as instru95es 
2 a 8, e prossiga digitando o resto do programa, da instru 9 do 
10 atd 3050. Note que, nas strings definidas nas instru^&es 2 e 



80, os dados foram agrupados em blocos de dois e cinco carac- 
teres, respectivamente, com a intencao de facilitar a digita^o, 
evitando erros (atenfdo: os espa^s devem ser respeitados). 

DE NUMEROS PARA BEPS 

A string B$, da instn^do 80, contdm o arquivo completo 
de simbolos Morse : o 1 representa o ponto e o 2 6 o tra 90 do 
c6digo Morse. Os zeros foram utilizados apenas como enchi- 
mento, padronizando todos os simbolos em grupos de cinco df- 
gitos. A string B$ inicia com os dfgitos de 0 a 9 e continua 
com o alfabeto completo, num total de 36 blocos de cinco df- 
gitos. Assim, exemplificando, o terceiro bloco (11222) corres- 
ponde ao cardter Morse . . - - - que representa o algarismo 2 em 
alfanumdrico. Serd traduzido em bips curtos e longos, os quais 
soardo mais ou menos como di-di-da-da-da. 

Logo no infcio do programa 6 solicitada a defin^ao da velo- 
cidade de tradufdo, representada por um numero compreendi- 
do entre 30 e 200. Experimente uma velocidade mddia, diga- 
mos, 60. Numeros maiores produzem velocidades mais lentas. 

O programa pedird, em seguida, a definifdo do modo de ope- 
ra?do - 1, 2 e 3 -, conforme descrito no infcio do artigo. Uma 
sugestdo: comece operando no modo 3, que fundona automa- 
ticamente, repetindo todo o arquivo de sons. Isto lhe permitird 
ajustar tranqdilamente o volume e sintonia do televisor (moni- 
tor de video) com bastante precisdo, obtendo bips bastante 
convincentes. Experimente ainda instalar um receptor de rddio 
perto do micro, sintonizando-o na faixa FM, ou, de preferencia, 
um amplificador extemo, ligado d safda MIC do micro. 

Na linha 3000 tem infcio uma sub-rotina em BASIC que 
produz, na varidvel k4, o mesmo efeito de RND. Esta sub-roti- 
na, divulgada no manual de programa 9 do do PC 1211-RP da 
Sharp, foi introduzida na medida em que RND nao funcionava 
devido a interferencia produzida pela sub-rotina em linguagem 
de mdquina para gerar os bips. A proposito, esta rotina dos bips 
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De PY1DWM 



B ern, aqui estamos em mais tun QSO atraves da RODADA 
MS, trazendo as ultimas novidades. 

0 excelente trabalho que publicamos nesta edigao 6 urn 
programa para treinamento do codigo Morse para micros da 
linha Sinclair, de autoria de Jorge A. C. Bettencourt, o qual, por 
incri'vel que pare^a, nao i radioamador - embora PY2AQ0- 
Luiz ja se tenha comprometido a introduzir em suas veias 
doses marinas do radiococus freqtiendae... 



RODADA MS congratula-se com seus companheiros e amigos 
PYlDFF-aiudio (continental leader, 21 MHz, South America) e 
ZY5CIG/PY5CIG-Alcione (top score, all bands, Brazil) pelos 
otimos resultados obtidos no 1983 CQ World Wide WPX CW 
Contest, divulgando o nome do Brasil e aumentando ainda mais 
o conceito de que gozam os cedablistas brasileiros em todo o 
mundo. 

Correspond encia recebida: de PY2AQO-Luiz, com uma lista de 
72 cole gas que j i se fizeram presentes na Rodada do Micro e 
de PY7AHJ-Cruz, tambe'm com uma lista de sete colegas da 
ddade de Recife interessados no uso do micro no 
radioamadorismo (todos ja devidamente cadastrados na 
RODADA MS);de PP1 DMX-Anaildo e PY5AKW-Nei, com 
palavras de incentivo e solid t and o informafdes, ji remetidas 
diretamente; de PY 2CJ W-Maneco , com o apoio e incentivo do 
GPCW;de PY7AOR-Galba, PY2JM-Jos<‘ Minerva, PY5ALX- 
Drago, PY2IPL-Pedro, PY5UX-Ad5o, PY2JRF-Jos* Reynaldo, 
com solidtacdes diversas e habilitando-se ao sorteio das 
assinaturas de MS;de GMPR, com o BI de Abril/Maio. 

CQ! CQ! NSo deixem de mandar, at£ IS de agosto, urn QSL 
ou bilhete com alguma sugestao, critica ou comen tirio sobre a 
RODADA MS, para concorrer ao sorteio de tres assinaturas 
anuais de MS! Aproveitem para inform ar -nos o tipo de micro 
deque dispfiem. 

Se voce acha que nao tern espa^o para ins talar uma antena de 
80 metros, ou mesmo de 40 metros, nfio perca nossa proxima 



foi adaptada de urn artigo publicado no numero 16 de MICRO 
SISTEMAS, janeiro de 1983, intitulado Transforme seu DGT- 
100 em um instrument musical , de autoria de Carlyle Macedo 



RODADA. Nela sera publicado um programa de PY2AQO- 
Luiz para a linha Sinclair, de facAima adapta^ao para a linha 
TRS-80, que faz o calculo de antenas dipolo encurtadas ou 
bobinadas, com todos os detalhes de constru^ao. Para dar uma 
ideia de apli cacao pratica, a primeira pergunta 6: qual o espa^o 
disponivel para a install 910 da antena? 

PY2AQO-Luiz esta pretend endo colocar em funcionamento 
a Rodada do Micro tambdm em 20 metros e, para que potsa 
melhor a tender a todos os interessados, 9 olicita sugestoes, 
via MS, sobre horarios. Enquanto isso, ele continua a disposigSo, 
diariamente, a partir das 16:00h, em 7097 KHz. 

Agradeco aos novos companheiros que a cada dia se fazem 
presentes com solicitafoes e palavras de incentivo. Da mesma 
forma, desejo agradecer a todos os colegas que bi coram as 
freqtlencias onde eventualmente me encontro para dizer que 
leram a RODADA MS. Este e spa 90 6 nosso e o seu sucesso - 
ou in sucesso - depende de todos e de cada um de n 6 s. 

Ja pensaram como seria bom poder transmitir program as e/ou 
dados via radio? Pois bem , temos uma equipe realizando testes 
neste sentido, ja tendo obtido alguns resultados positivos. Algum 
colega teria conhecimento a respeito para dividir conosco? 
Vamos, entao, ao programa C 6 digo Morse. At£ a prdxima, boa 
sorte nos exames de promofSo e espero encontrd-los tamWm 
pelas subfaixas. 

HPE CUAGN 73 ES GL FM PY1DWM -Quito 



A RODADA MS 4 coortenada por PYIDWM-Roberto QUITO 
de Sant'Anna. Qualquar cor respond Ancia e/ou colaborapio dava 
sar anviada aos aaui cutdadot, para a Av. Presidents Wilson, 
165, flrupo 1210, CEP 20030, Rio da Janeiro, RJ. 
Contatos diretos via Rodada do Micro (7007 KHx, das 
1600 is 18«0h>, Patrulha da Madru«ada (7065 KHz, das 2200 
is 23«0h) ou paio teiefone (0243) 54-3356, ramal 504. 



Junior e Edelvicio Souza Junior. 

O programa, incluindo suas varidveis e o arquivo de imagem, 
ocupa cerca de 3.300 bytes. Bom aprendizado. ^ 



.0 ^ 

c 



NUNCA E 
TARDE PARA LER 

.Micro 



Se voce nao adquiriu MICRO SISTEMAS na data certa, nos the damos uma segunda chance! 



Seu pedido pode ser feito 
por carta, indicando 
quais os numeros 
atrasados que voc 6 quer. 



Acrescente a este um cheque 
cruzado, nominal a ATI 
Editora Ltda., no valor 
correspondente ao seu 
pedido. 



e E nao se esquepa de incluir 
o seu endereoo para 
que n6s possamos 
fazer a remessa. 



Aqui estao os nossos enderecos: 



A)X| I k Av. Presidente Wilson, 165 — grupo 1210 — Centro — Rio de Janeiro 
- RJ - CEP 20030 - Tels.: (021 ) 262-5259, 262-6437 e 262-6306. 



Rua Oliveira Dias, 153 - Jardim Paulista — Sao Paulo - 
SP - CEP 01433 - Tels.: (Oil) 853-7758 e 881-5668. 











C6DIG0 MORSE A MODA SINCLAIR 



Codigo Morse 



1 REM 1234-5676901234567830123 
4567890123456 

2 LET A $ = " D D 21 00 00 11 00 0 
0 01 ff FF D5 El 3E 01 D3 FF 03 
DA 92 40 D5 El 3E 02 D3 FF 03 DR 

9C 40 DD 09 Dfl 3C 40 09" 

3 LET X. = 16514 

4 FOR N = 1 TO. LEN H$ STEP 3 

5 LET fl= (CODE A$ (N) -28) *16+00 
DE fi$ (N + l) -28 

6 POKE X , A 

7 LET X=X. + 1 

3 NEXT N 

10 REM M MORSE" 

20 REM MICRO SISTEMAS - URGES 
30 FRST 

40 DIM C'$(36,6) 

50 DIM D 5 ! 5 , 1 ) 

60 LET F « = " " 

70 LET K1 =PEEK 16436 
80 LET Bs ="22222 12222 11222 1 
1122 11112 11111 21111 22111 222 
11 22221 12000 21110 21210 21100 
10000 11210 22100 11110 11000 1 
2220 21200 12110 22000 21000 222 
00 12210 22120 12100 1110 © 20000 
11200 11120 12200 21120 21220 2 
2110 " 

90 FOR N =0 TO 35 
100 LET C$ (N+l) =B$ (N*6+l TO N*6 
+5) 




SOFTWARE 

i 

seu micro merece! 




PARA QUEM OUER AVENTURA E MUITA AQAO ... 

EM CAQA FITA 5 SENSAClONAIS JOGOS, EM LINGUACEM DE MAOUINA , PAHA MCHOS 
DE LOGIC* SINCLAIR* COM #« OE RAM 



AVOdUU A MKTf RIO 

■ PIRAMIOE INCA 

• SABOT AGE W 

• OAVENTUREIRO 

■ MAZOGS 

■ USS ENTERPRISE 



■ NIGHT GUNNER 

■ ALERTAVERMELHO 

■ POLARIS 
I DUE LO 

I SCRAMBLE 



PATRUUU GALACTIC A 

• NAVE MAE 

• F UNGOS MUT ANTES 

• GALATICA 

• SOS VEGA III 

• PERSEGUIOOR 




SE O SEU NEOOCtO E PROORAMAR . 

2 FITAS CONTENOO AS MAIS POOt ROSAS 
FERRAMENTAS PARA PROG «A MAR EM BA- 
SIC OU UNGUAGEM OE MAOulNA 



' SOG lira non • ran pod»on —Mo 01 ROT I 
• m Mmpcural Sultra OmaoonM G,lfa> 

' MERGE 



l 3 

130 

140 

150 

160 

_ 

170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
500 
510 
6 , 70 
520 
6.21 
530 
540 
550 
560 
570 
580 
1000 
1010 
1020 
1030 
1040 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
2000 
2010 
2020 
2030 
2040 
250O 
2510 
2520 
2530 
2540 
2550 
2560 
3000 
3010 
3020 
3030 
3040 
3050 



NEXT N 

PRINT AT 10,4; "UELGCIDADE? 
0 / 200 ) " 

INPUT A 
POKE 16519 a A 
CLS 

PRINT AT 10 , 8; "MODO? (1/2 



INPUT B 
CLS 

IF B =2 THEN GOTO 1500 
IF B =3 THEN GOTO 2500 
GO SUB 3000 
LET C = I NT (36*K4) 

LET E $ =CHR $ (2S + C ) 

IF E $ =F 5 THEN GOTO 210 
GO SUB 1000 
GO SUB 500 

IF INKEY $="" THEN GOTO 270 
LET F $ = IN KEY $ 

IF F$ = " , “ THEN GOSUB 2000 
IF F $ =E 5 THEN GOTO 210 
GOTO 260 
FOR N = I TO 5 

IF D $ (N) =" 1 " THEN POKE 1651 
IF D$(N)="2" THEN POKE 1651 

5 

IF D $ ( N ) = " 0 " THEN RETURN 

RAND USR 16514 

FOR K = 1 TO fl/5 

NEXT K 

NEXT N 

RETURN 

LET G 5=0$ ( C + 1 ) 

FOR N = 1 TO 5 
LET D 5 ( N ) =G $ ( N 3 
NEXT N 
RETURN 

FOP. N = 1 TO 20 
NEXT N 

IF INKEY $="" THEN GOTO 1520 
LET H 5 = IN KEY $ 

L ET C = C 0 D E H $ - 2 8 
GOSUB 1000 
GOSUB 500 
GOTO 1520 
SLOW 

PRINT AT 10, 10; E $ 

PAUSE 60 

FAST 

RETURN 

FOR 0=0 TO 35 
GOSUB 1000 
GOSUB 500 
FOR K = 1 TO A 
NEXT K 
NEXT C 
G OT 0 2500 

LET K 1 = A B 5 (439147+K1) 

LET K2 = 10**8 + 1 
LET K3=23*K1 

LET K 1 = K 3 - 1 NT ( K 3 / K 2 ) * K 2 

LET K4=K1/K2 

RETURN 



( 4 3 9 1 4 7 + K 1 ) 
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RINGO R-470 CHEGOU A CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM 




Cr$ 449 







0 microcomputador Ringo R-470 6, disparado, o melhor em sua categoria E mais r£pido na execugao de programas, oferece amplas possibilidades de 
expansSo e 6 o unico micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Inform&ica. 

Um verdadeiro herdi nacional. 

Voce pode contar com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, atravds de vdrios jogos dispomveis em 
cartuchos ou fitas. 

Alias, cartucho 6 o que n3o falta para o Ringo. Ele 6 compativel com todos os programas do famoso Sinclair e possui equipamentos perifdricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tSo profissional por estas redondezas. 



CARACTERiSTICAS TECNICAS: 

• linguagem Basic e cddigos de mSquinaZ-80 

• 8 KBytes ROM expandivel para 16 K Bytes 

• 16 KBytes RAM expandivel para 48 K Bytes 

• UtilizAvel em qualquer TV P&B ou cores 

• Conector para Joystick (jogos) 

• Teclado lipo QWERTY com 49 teclas e 155 fungdes • teclas de edigdo 
(movimentagdo de cursor e corregdo) com repetigdo autemitica 

• Exclusiva tecla de inversdo de video 

• Tela com 24 linhas de 32 colunas para lexto 



• Resol ugAo grjfica 64 x 44 pixels (unidade grjfica), podendo atingir uma 
matrizde256 x 192 quando ulilizadocom cartuchos 

• Cdlculos aritmdticos, fungdes trigonomdtricas, logaritmicas e Idgicas 

• Cartuchos "Instant Soft” (programas aplicativos em ROM • exclusivo) 

• Velocidade de gravagdo em fita cassete 2.400 BPS 

EXPANSOES: 

• Gravador de EPROM para gravar, editar e copiar programas em cartucho 

• Interlace para impressora ou mdquina de escrever eldtrica 

• Sintetizador de sons 

• MODEM (Comunicag&o telefdnica - 1.200 Bauds) 



A venda nas tojas especializadas em micros, 
foto-video-som e grandes magazines. 

N3o encontrando o Ringo nestes locais, ligue para 
217.8400 (SP) ou (01 1) 800.8441 e 800.8442 (Outras 
localidades do Brasil). DDD gratuito. 

RINGO tst-QZ® 

O micro que aceita desafios. 

Ritas do Brasil Ltda. • OivisSo Inform&ica 



- Prego sujollo a ailerafto 



Telex (01 1)34673 Rita BR 













• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
• IN FT. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM II 
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MICROCOMPUTADORES LTDA. 

ADMINISTRAgAO E VENDAS: AV. BRIG. FARIA LIMA, 1.664 - 3? ANDAR - CJ 316 - CEP 01452 
FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 







Microcomputadores CRAFT jj/lff §=pf gg ,d= 

a extensao de sua mente. * aiicrocompumdores ltda 



Av Brig Faria Lima. 1.698 1° andar Cj 11 CEP 01452 
Tels (Oil) 212-6286 e 815 6723 Sao Paulo SP Brasil 






VERSATILIDADE E BELEZA 
PARA SUA IMPRESSAO 



A Scritta. atraves do alto indice de nacionalizacao alcanpado nas impressoras 
GRAFIX 80 e GRAFIX 100. esta colaborando de forma definitiva para que o Brasil 
atinja o nivel tecnoldgico dos paises desenvolvidos. 

SCRITTA eletronica ltda. 

Rua Helidpolis. 61/67 • Vila Leopoldina - CEP 05318 - Fones: 831-9912 e 831-5177 



MOVIMENTO D ARTE 




Enxadrista experiente, Luciano NHo de An- 
drade jA escreveu para os jornais "Correio da 
Manha”. "Data News" e "Ultima Hora" e pa- 
ra a revista "Fatos & Fotos". Luciano 6 econo 
mista, trabalhando no MinistArio da Fazenda, 
no Rio de Janeiro. As opinioes e comen tArios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores. estarSo sempre p resen tes em 
MICRO SISTEMAS. 



Elite A/S 

World Champion 



G rapas ao convite de um leitor 
conheci este maravilhoso micro. 
Ele 6 a versao recente do Elite 
A/S, que tamb^m foi campeao 
por ocasiao de seu lanpamento. 

0 Elite A/S World Champion vem 
num tabuleiro de madeira com acaba- 
mento esmerado, agradSvel ao tato, com 
casas de 4,5 cm cada e pepas de tama- 
nho proporcional com igual acabamento. 
FScil de operar (6 sensory), tern os con- 
trols na borda inferior e dispoe de um 
visor digital capaz de informar: o tem- 
po que estci sendo gasto na jogada em 
curso, o total dos tempos das brancas e 
das pretas, bem como a avaliapao da 
posipao. 

Estuda a replica ou nao (£ vontade 
do operador) enquanto seu adversSrio 
pensa, o que multiplica por dois os nu- 
meros de nfveis de forpa. Estes, ao todo, 
sao oito, apresentando os seguintes tem- 
pos m6dios para cada jogada: 1 -5s; 2-1 5s; 
3- 30s; 4-1 m; 5-2m; 6-3m; 7 -3,45m e 
8-6m. 

Outras operapoes podem ser realiza- 
das atrav^s de controles para: problemas 
de mate; anSlise de posipoes (excelente 
para xadrez postal), fixar o tempo para 
cada jogada ou para toda a partida; pes- 
quisa iterativa e interativa. Acompanha 
um alentado manual ilustrado. 

A Fidelity Eletronics fabrica, como 



Diagrama A — 
Posiqao depois 
de 29 — T1BR. 



perif^rico opcional, uma impressora que 
registra todas as jogadas e respectivos 
tempos gastos e os tempos totais, al6m 
de imprimir diagramas das posipoes ocor- 
ridas sempre que solicitado. A qualidade 
do diagrama, acredito possa ser melhora- 
da em futuro proximo. 



O WORLD CHAMPION EM A£AO 

Super 9 x Elite World Champion 
Partida do Peao 
Dama — Defesa Ortodoxa 
Rio, junho de 1984 



1 - P4D P4D; 2 - P4BD P3R; 3 - 
C3BD C3BR; 4 - B5C B2R; 5 - P3R 
0-0; 6 - C3B CD2D; 7 - TIB P3B; 8 

- B3D PxP; 9 - BxP C4D; 10 - BxB 
DxB; 11-0-0 CxC; 12 - TxC P4R; 
13 - PxP CxP; 14 - CxC DxC; 15 - 
P4B D5R; 16 - B3C B4B; 17 - D5T 
P3CR; 18 - D6T TD1D; 19 - B2B 
D4D; 20 - P4R (l?). Ate este momento 
ambos os micros jogaram sem pensar, 
apenas de memoria. 20 — ...D5D+ (a 
permanencia da dama negra na diagonal 
1TD - 8TR 6 imprescindi'vel para a de- 
fesa de seu rei). 21 - T2B (a autocrava- 
pao da torre iri custar um precioso tem- 
po). 21 - ... TDIRl; 22 - T3CD BxP; 
23 - T3TR D1T; 24 - BxB TxB; 25 - 
TIB T7RI ; 26 - T1CD. Melhor seria jo- 
gar imediatamente 26 — P5B\. Jogada 
temitica desta posipao. 26 - ... T1D; 27 

— R1T T(1)7D; 28 - T3CD D5D; 29 - 
T1BR?. As pretas anunciaram mate em 
seis jogadas. 29 — ... D7BII; 30 — 
DxPT+. Puro desespero para retardar o 
final. 30 - ... RxD; 31 - T3T+ R1C; 
32 - T8T+ RxT ; 33 - T1CR DxT+; 
34 - RxD T8D/R mate. Veja o diagra- 
ma A. 




ENCONTRE TAMBl:M A SOLUQAO 

Polugaievsky x Antoshin 
Leningrado, 1956 




Diagrama B — As 
brancas jogam e 
ganham. Para 
encontrar a 
solufao, o Elite 
A/S World 
Champion gastou 
2m 54s; o Elite 
A /S 3m37s; o 
Constellation 
5m; e o G.C. 
Machine, com o 



programa Steinitz, 16m10s. 



Valesnu x Enger 
Correspondence 1972/73 



Diagrama C — As 
brancas jogam e 
dao mate em 
cinco jogadas. 
Tempos gastos 
na busca da 
soluqao: Elite 
A/S W. 

Champion — 
6m52s; Super 9 
— 14m40s. 




Origem desconhecida 



Diagrama D — 

As brancas 
jogam e ganham. 
Tempos gastos 
na busca da 
solugao: Super 9 
— 1m 50s; Elite 
A/SW. 

Champion — 

6m 30s (para 
surpresa geral, 
gastou mais tempo do que o Super 9); G. G. 
Machine —1ml Is. 



uuuv 

111 Dll* 
BA * X 

I BAB I a 
B BAB m 

B □ SAX A 
J5 BABA 0 

P s* a B L 



Solupoes 



iaieui ogo aLU/ILd - 9 

•p + ud x o oid - fr -+a£0 a*a - e ( euj 

-ep ep ejnjdeo e no aieiu edeaiue) OSO 
lid - Z ' + 8t9 - l - a BUiejBeia 

eieiu 0Z.d- 9 • J. x d 
±91 - fr J 8W9)D 09d - 8 •±2D+a±l± 

- Z -lid a±l± - l - 0 euiejBeia 

-epipjad pisa ajjoj v Luejeu 
-opueqe sejajd se a 09B - Z J d9Cl 081 

- Z '+0d x d i09d - l - 8 eujejBeia 



MICRO SISTEMAS, agosto/84 



47 







Programas 

que escrevem programas 






AGORA <3> IJ FZ UOC FI JA ENTROU ~T OE> A3 
AS IN F ORMACOES El PARAHETROS 
NECESSARIOS ESTAMOS QUASE MO 
F~ I M - E L J SOU UM SUPERPROGR AMA 
Q U F£ OAR A A OOCE A LISTAGEH 
COMP LET a e: sem eirros de: UM 

PROGR AMA QUE FI Z 

EXCLUS I OAMENTE PARA SEU USO 
TOTALMENTE A IJ TO M O M O E ADEQUADO 

AS 3 U AS NECESSIDADES - NESTE 

MOMENTO El l J EST O IJ C O I O CANDO E M 
O RDEM M U MERICA A3 LINHAS DE 
SEU PROGRAMA El ISSO OAI T OMAR 
ARENAS ALGUNS MINUTOS - AGUARDE 






S oftware. Esta e a palavra mdgica 
que faz com que urn micro- 
computador - dotado do hard- 
ware adequado - seja uma ferra- 
menta de auxflio quase ilimitado para o 
homem. Nos ultimos anos foram criados 
programas para quase todas as aplica- 
9 &es imagindveis, mas isso parece ter si- 
do pouco para alguns programadores 
norte-americanos. Eles resolveram ir 
mais aldm e criaram programas que , eles 
proprios, geram outros programas. 

Na verdade, os programas que escre- 
vem programas sSo um tipo de software 
extremamente sofisticado , capaz de pro- 
duzir programas muito simples e apenas 
de acesso a banco de dados, tais como 
mala-direta, contas a pagar e a receber 
e qualquer tipo de arquivo relacional 
que venha a substituir um fichdrio. Com 
eles, qualquer pessoa pode criar, em 
questao de minutos, o seu prdprio pro- 
grama de banco de dados, e sem possibi- 
lidade de erros de programa^o. 

Nos Estados Unidos jd existem alguns 
programas desse tipo, sendo que alguns 
dos mais famosos sao o Creator e o Pro- 
ducer, ambos desenvolvidos para a linha 
TRS-80. 0 Creator, inclusive, jd teve sua 
listagem completa publicada na revista 
norte-americana 80 Micro (veja a matd- 



ria Creator, uma ferramenta de progra- 
ma^ao, publicada nesta mesma edi 9 ao). 
Ambos trabalham com um arquivo que 
contem linhas de programas semi-pron- 
tas. 0 usudrio, no decorrer do Creator 
ou Producer, define os parametros espe- 
cificos do programa a ser gerado e, final- 
mente, o programa gerador monta todas 
as linhas, dando como resultado um pro- 
grama modular, comentado e todo em 
BASIC. 

VANTAGENS E DESVANTAGENS 

Para se ter uma iddia da rapidez com 
que esses programas geram outros pro- 
gramas, basta dizer que um profissional 
da drea levaria aproximadamente um dia 
para fazer um programa, para seu pro- 
prio uso, de cadastro de mais ou menos 
cem titulos de sua biblioteca tdcnica. 0 
Creator gasta, apds a entrada dos para- 
metros, menos que dez minutos para lis- 
tar o novo programa. 

Uma grande vantagem do Creator e 
do Producer e que o metodo de acesso 
aos registros do programa gerado (res- 
pectivamente, Hashing e BTree) e' mais 
eficiente do que aqueles geralmente uti- 
lizados pelos programadores quando de- 
senvolvem um software desse tipo. A 



fun?ao Hashing, usada em arquivos orga- 
nizados randomicamente, 6 um algorit- 
mo que converte a chave num codigo de 
referenda do registro. BTree, que literal- 
mente quer dizer Binary Tree (arvore 
bindria), 6 um tipo de estrutura de ar- 
quivos onde cada registro contdm um 
ponteiro que indica onde esta alocado 
no disco o registro a seguir. Ambos pos- 
sibilitam imediato acesso ao dado sem 
utilizar o demorado processo de indices, 
largamente usado. 

Como os programas gerados tanto 
pelo Creator como pelo Producer nSo 
chamam rotinas em Assembler, eles po- 
dem ser transportaveis para outras linhas. 

Al£m de criar um programa de acesso 
a banco de dados com todas essas van- 
tagens jd descritas, estes programas ain- 
da permitem que se fa 9 am calculos entre 
os campos dos registros. 0 que nao 6 
possivel, no entanto, 6 a intera 9 ao auto- 
mdtica de dois ou mais programas gera- 
dos — fazendo-os funcionar como um 
sistema - sem a interferencia de um 
progra mador profissional, que poderia 
fazer isso com relativa facilidade. 

Uma outra limita 9 ao esta no tama- 
nho do registro - 255 bytes no Creator 
e 251 no Producer, que utiliza os outros 
bytes no controle do BTree. 
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DE LEIGOS A PROFISSIONAIS 



Este e’ o CRIADOR. Ele poss i b i 1 i t ar a ' a voce gerar programas 
gue criem e acessent uni arguivo de dados. 

For favor entre o nome para o programa proposto. 

Use no max i mo oito letras. 

Nome do proqrama = _ 

Figura 1 - A tela inicial do Creator, numa versdo traduzida para o Portugues. Note, comparan- 
do-a com a figura 3 (tela inicial do Producer), que ela i bem mais simples e, conseqiientemente, 
acessivel a qualquer usudrio. 



A gama de possiveis usudrios desse 
tipo de programa e bem ampla. Ele serve 
basicamente a leigos em programafao e 
a pequenas empresas que tenham diver- 
sos arquivos a organizar, mas que nSo 
justifiquem a contrata9ao de um progra- 
mador profissional exclusivamente para 
isso. 

Por outro lado, ate o programador 
profissional pode desfrutar das vanta- 
gens do Creator e do Producer. Esses 
programas podem servir como um 6timo 
ponto de partida para o profissional 
criar implementagoes diversas, produzin- 
do programas mais sofisticados e de apli- 
ca96es mais especificas. Como os pro- 
gramas gerados sao todos semelhantes, 
basta analisar o me'todo de programa9ao 
de um, para conhecer o de todos os 
outros . Partindo do programa gerado, o 
programador nao perde tanto tempo 
com a entrada de dados e cria9ao 
de telas. 

Quern for aproveitar assim os progra- 
mas gerados, vai sentir mais facilidade 
de leitura na listagem produzida pelo 
Creator que, ao contrario da produzida 
pelo Producer, nSo e compactada e con- 
tern uma media de dois comandos por 
linha de programa. 

E essa diferen9a entre os dois progra- 
mas come9a na opera9ao. Enquanto o 
Creator pode ser utilizado por qualquer 
pessoa, mesmo leigos em programa9ao, 
o Producer exige um grau de conheci- 
mento maior de quern for operd-lo, pois 
certamente tera que recorrer vdrias vezes 
ao seu extenso manual. 



O CREATOR, PASSO A PASSO 

O Creator e um programa que escre- 
ve programas de banco de dados no 
Basic Microsoft do TRS-80. Mas como 
ele gera um programa modular, toma-se 
fdcil a adapta9So a qualquer DOS da fa- 
mfiia TRS-80. £ um programa de utili- 
za9ao muito simples, pois usa a forma 
de pergunta e resposta para definir os 
parametros que vao gerar o arquivo de- 
sejado pelo usuario. Todas as informa- 
95es do Creator encontram-se na prdpria 
tela, n2o havendo necessidade de recor- 
rer-se a manuais. 

Na primeira tela (veja a figura 1), o 
Creator pergunta pelo nome do progra- 
ma a ser gerado, a unidade de disco que 
conterd o arquivo de dados, a unidade 
onde o programa serd gravado. Depois, 
o usudrio e questionado a respeito do ta- 
manho maximo do seu arquivo em nu- 
mero de registros, do tamanho do regis- 
tro — que pode ir ate 255 bytes — eo 
tftulo para o programa. 

Apos responder a essas perguntas. o 
usudrio pode escolher um cddigo de sai- 
da que permitird ao operador do progra- 
ma gerado parar a entrada ou a atualiza- 
9ao dos dados sem gravar as ultimas alte- 



ra9oes, retomando ao menu. Entao apa- 
rece uma serie de perguntas repetitivas 
sobre cada campo do seu registro. Ini- 
cialmente, voce £ questionado sobre o 
tamanho do campo. Campos compacta- 
dos podem ter 8,4 ou 2 bytes (estes, 
compactados) e campos alfanumdricos 
ou numdricos que nlo obede9am a esse 
padrao podem ter de 1 a 255 bytes de 
tamanho. C Creator pergunta, entdo, se o 
tamanho que voce escolheu estd corre- 
to e informa quantos espa90s ainda 
estdo sobrando, passando para o proxi- 
mo campo atd que nenhum espa90 sobre 
no registro. 

Uma vez definido o campo-chave, o 
usudrio descreve as mensagens ao opera- 
dor, as valida9Ses e o tif>o de dado que 
estd sendo armazenado em cada campo. 
No ultimo caso, as respostas possiveis 
sao: numdrico nao compactado (N), in- 
teiro compactado (PI), compactado 
com precisao simples (PS), compactado 
com precisao dupla (PD) e caracteres 
(C). Para rever essas instru96es a qual- 
quer momento durante a execu9ao do 
programa, basta digitar a palavra SOS 
(veja a figura 2). 

Terminada essa serie de defini95es de 
parametros, o Creator informa: ESTA- 



As palavras-chaves que voce precisa saber 



Arquivo (File) - £ um conjunto 
de registros. Uma cademeta de 
nomes e telefones, por exemplo, 
e um arquivo que conte'm infor- 
maQdes sobre seus amigos. No 
computador, o arquivo e arma- 
zenado na sua propria memoria 
ou em aigum tipo de memoria 
auxiliar, geralmente uma fita 
cassete, disquete ou disco rigido. 

Campo (Field) - £ um peda^o 
de informa^o. Numa cademeta 
de nomes e telefones, por exem- 
plo, o nome de uma pessoa sena 
um campo de informa^ao; seu 
endere<;o, outro campo e oCEP 
da localidade. outro campo. £ 
uma area definida que sera di- 

t itada ou mostrada no video, 
eu tamanho deve ser predefi- 
nido com um ou mais caracte- 
res e apenas esse numero maxi- 
mo de caracteres pode ser en- 
trado ou mostrado nessa area. 
Um ou mais campos form am um 
registro. 

Campo-chave (Key field) - £ 



um determinado campo do re- 
gistro que sera sempie usado 
para armazenar, recuperar ou 
editar aquele registro. Numa ca- 
demeta de nomes e telefones, 
por exemplo, armazenada em fi- 
ta ou disco, existe um registro 
assim: 19 campo - MARIA RI- 
TA SOBRINHO; 29 campo - 
568.0000; 39 campo - Rua 
Vasconcelios, 99; 49 campo etc. 
Se usarmos para recuperar esse 
registro, o 19 campo, que con- 
tern o nome da pessoa, este cam- 
po sera chamado campo-chave. 

Dado (data) - £ uma ideia, de- 
finigao, palavra, grupo de pala- 
vras ou numero. Ou seja, e qual- 
quer informa^ao que e armaze- 
nada por um computador ou 
que voce digita num computa- 
dor. 



Default - Chama-se default ao 
valor ou nome que o computa- 
dor assume quando o usuario 



nSo define aquele parametro. 
Por exemplo: numa determinada 
etapa da execu<;ao do programa, 
ele pede ao usuario para entrar 
com o nome do arquivo em 
questao. Se o usuario entrar 
com esse nome, o computador o 
utiliza normalmente, mas se o 
usuario nao responder com o 
nome pedido e apenas teclar 
ENTER, o computador vai usar 
o default de nome de arquivo 
que ele river. Para isso, entSo, 
o default para valores ou nomes 
deve ser previamente definido. 

Editar (Edit) - Editar quer di- 
zer modificar o conteudo de um 
campo digitando-se nova mfor- 
ma^ao ou corrigindo-se a infor- 
ma^ao que ja estava no campo. 
Isso pode ser feito digitando-se 
por cima dos caracteres contidos 
no campo ou inserindo/deletan- 
do caracteres. 

INPUT - Um comando que sig- 
nifica digitar inform agao para 
dentro de um campo. 



Menu - £ uma lista de op?oes 
que da a voce a possibilidade de 
escolher uma delas. Voce geral- 
mente escolhe um comando do 
menu pressionando o numero 
ou a letra que vem antes ou apos 
a op?ao. 

Registro ( Record ) - £ um con- 
junto de campos. Todos os cam- 
pos de um registro devem ter ai- 
gum fator em comum que os li- 
gue. Numa cademeta de nomes 
e telefones, todos os fatos (cam- 
pos) sobre uma mesma pessoa 
formam o registro daquela pes- 
soa. 

Tela ( Screen ) - £ uma area de- 
terminada por voce para permi- 
tir a entrada e disposi^ao de sua 
informa?ao. A palavra tela as ve- 
zes refere-se tambe'm a uma se'rie 
de caracteres e graficos que apa- 
recem todos ao mesmo tempo 
no monitor de video de seu 
computador. Uma tela deve ser 
totalmente visivel por n6s num 
unico instante. 
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PROGRAMAS QUE ESCREVEM PROGRAMAS 



Agora temos que descrever as mensagens ao operador, 
as validaoes a serem feitas, e os tipos de dados para cada 
campo. Para isto, faremos algumas perguntas sobre cada campo. 



Para a quest ao "Tipo de dados" as respostas possiveis saos 

N Numerico, nao compactado . 

PI Inteiro compactado. Usa 2 espaos. 

PS ....Compactado precisao simples. A espaos. 

PD Compactado precisao Jupla. 8 espaos. 

C Caracter. 1 espao. 

Voce pode entrar a palavra SOS para ver estas instrucoes ma i s 
tarde. Pressione qualquer tecla para continuar. 



Figura 2 - Um trecho de tela do Creator, logo apds as perguntas que definem os campos do 
registro. Observe que as explicates necessdrias estao todas contidas na prdpria tela, juntamente 



com a pergunta ou. como no caso, logo antes delas serem feitas. 



MOS QUASE NO FIM. Depois, voce de 
ve digitar uma pergunta que sera feita ao 
operador para saber se ele jd terminou a 
entrada de dados; a resposta deve ser do 
tipo S/N. Uma vez isso feito, o Creator 
volta a se com unicar com o usuario, in- 
formando: AGORA ESTOU COLO- 
CANDO EM ORDEM NUM£RICA AS 
LINHAS DO SEU PROGRAMA. ISTO 
VAI TOMAR ALGUNS MINUTOS... 0 
Creator leva cerca de tres minutos para 
gerar um programa simples como agenda 
com nome e telefone (50 registros). 

A tela do programa gerado propor- 
ciona as seguintes op$oes: entrar dados 
(E), listar um registro (L), verificar to- 
dos os registros (V), atualizar um regis- 
tro (A), retirar um registro (R), iniciar 
um arquivo (I) e sair do programa (S). 

OPERACAO DO PRODUCER 

0 Producer, do norte-americano Ro- 
ger Smith, e um programa bem mais so- 
fisticado e extenso que o Creator, con- 
tendo inclusive algumas rotinas em 
Assembler. Ele gera programas de ban- 
cos de dados em BASIC e da possibilida- 
de a uma maior intera$ao e participate 
(as telas sao feitas pelo proprio usuario), 
embora possua um m'vel maior de com- 
plexidade de opera 9 ao, o que exige di- 
versas consultas ao extenso manual que 
o acorn panha. O Producer opera em 
DOS-Plus 3.4 e uma de suas vantagens 6 
a comunicato constante com o opera- 
dor, dando op5<3es de conserto e alertas. 
Assim como o Creator, 6 um programa 
para ser rodado em equipamentos da li- 
nha TRS-80, s6 que necessita de dois 
drives, pois o sistema sozinho ocupa um 
disco inteiro. 

Na primeira tela do Producer (veja a 
figura 3), aparecem os dois menus prin- 
cipals. A menu A consiste em ferramen- 
tas e utilitarios que o usuario vai usar 
para a gera 9 ao e atualiza 9 ao do progra- 
ma. Jd o menu B possui todas as etapas 
para a constn^ao propriamente dita do 
programa a ser gerado. Ambos sao for- 
mados por seis itens. 

0 primeiro item do menu A e o 



Planning Form (formulario de planeja- 
mento), que simplesmente imprime um 
formulario contendo todos os parame- 
tros que voce precisa definir para gerar o 
seu programa (nome do programa, data, 
objetivos, numero de campos e registros, 
nome, tamanho e tipo dos campos e cdl- 
culos do programa). Com todos esses da- 
dos a mao, e muito facil digitar o que 
for pedido pelo Producer, pois todas as 
respostas ao programa estarao no formu- 
lario. 

0 segundo item do menu Ado Lo- 
gon Filename (arquivo de nomes), que 
serve para o usudrio determinar quais 
vao ser os seus default de nome de ar- 
quivo e de drive. Com isso, o uso dos 



mddulos do Producer torna-se mais ra- 
pido, uma vez que bastard teclar EN- 
TER cada vez que for pedido um desses 
dois itens. 0 terceiro item 6 o Reference 
Form (formuldrio de referenda), que 
mostra uma pagina de relatdrio que con- 
tern informa 9 §o sobre o programa que 
esta sendo criado. 

Ele mostra, numa tabela, o nome de 
cada campo e os respectivos numero do 
drive e tamanho do campo, inclusive o 
numero de cdlculos, que dird quantos 
cdlculos estdd ligados aquele campo em 
particular. 

0 Maintain Files (manuten 9 §o de ar- 
quivo) d o quarto item e dd quatro 
op 9 oes: iniciar o arquivo, balancear os 
arquivos, reconstruir os arquivose retorno 
ao menu. E por ultimo ha o Utility 'sMenu 
(menu de utilitdrios), que contdm os 
utilitarios operacionais do sistema, para 
gerar e manter o programa, tais como 
listar um diretdrio, apagar um arquivo, 
transferir um arquivo, converter um ar- 
quivo do DOS-Plus para TRSDOS. 

0 menu B come 9 a com Create a 
Screen (criar a tela), que permite ao 
usuario, atraves dos buffers, o controle 
de atd oito telas. 0 programa lista os 
comandos de edi 9 ao de tela (veja a figu- 
ra 4) e um dos itens, o Help (ajuda), 
permite visualizar, sempre que necessd- 
rio, esses comandos. Os itens seguintes 



Th Producer 



P PR06RPM DEVELOPMENT SYSTEM 



(01982 BY ROGER SMITH 



DISTRIBUTED BY 
HERRT OF TEXRS 
COMPUTER SYSTEMS 



PRESS <P> OR <B> TO 
SELECT DESIRED MENU 



<1> PLRNNING FORM 
<2> LOGON FILENRME 
<3> REFERENCE FORM 
< 4 > MPINTRIN FILES 
<5> FUTURE MENU 
<6> UTILITY'S MENU 
■ ■■■■■ — 



<1> CREPTE R SCREEN 

< 2 > EDIT BRSIC DRTR 

< 3 > MAKE BRSIC LINES 
<4> BUILD REPORTS 

< 5 > BUILD PROGRRM 
< 6 > EXIT TO DOS 

< B >— — 



Figura 3 - A tela inicial do Producer, que oferece as duas opfdes de menu. Como se pode ver. 
quando utilizado pela primeira vez, o usuario terd que recorrer ao manual para saber o que cada 
item do menu faz. 



THE PRODUCER i B1 -SCREEN GENERATOR 
CREATE RND DEFINE R CUSTOM SCREEN 


BUFF# MEMLOC STATUS 




1 — 35009 —OCCUPIED 


<1> DISPLAY a Buffer to Screen 


2 — 56033 —OCCUPIED 


<2> LORD a Buffer from Disk 


3 — 57057 —EMPTY 


<3> CLERR Selected Buffers 


4 — 58081 —EMPTY 


<4> FUTURE Expansion 


5 — 59105 —EMPTY 


<5> SRVE Buffers to Disk 


6 — 60129 —EMPTY 


<6> EDITsScreen Creation Mode 


7 — 61153 —EMPTY 


<7> TRANSFER Buffer to Buffer 


8 — 62177 —EMPTY 


<3> HELP: Show EDIT Commands 


9 — 63201 —OCCUPIED 






SELECTION >& 


PRODUCER! 



Figura A - A primeira opcao do menu B (Create a Screen ) gera esta tela, que contem todos os 
comandos de edifdo de tela listados. 



50 



MICRO SlSTEMAS, agosto/84 







sao Edit Basic Data (editar dados em 
Basic), que permite editar nessa lingua- 
gem o que o usuario criou na tela;A/aA:e 
Basic Lines (fazer as linhas do programa 
em Basic); Build Reports (construir rela- 
tdrios), que serve para construir as li- 
nhas de mensagem da impressora; Build 



Program (construir o programa), que 
reune todos os dados para enfim montar 
o programa; e Exit to DOS (saida para o 
DOS). Mais rapido do que o Creator, o 
Producer leva entre um e dois minutos 
para gerar um programa, dependendo da 
sua complexidade. 








A opiniao de quatro usuarios 



Roberto Quito de Sant'Anna 



“Tanto o Creator como o Producer sao macro-programas capazes de liberar qualqucr 
usuano de micro da dcpendcncia das software houses c da pasteurizafa'o dos programas 
por elas comercializados, uma vez que pcrmitem a qualquer pcssoa, scm maiores 
conhccimentos de programaqao, construir um programa totalmente autonomo, 
perfeitamcntc adaptado as suas neccssidades cspccificas e com ni'vel de sofistica^ao 
bastantc elevado. Em cursos de computacao, esses programas deveriam ser citados, 
porque reprcsentam uma evolucao no campo do software, constituindo-se o que se 
poderia chamar uma segunda gera^ao de programas: os programas que geram programas”. 

(Quito d professor de Informdtica da Academia Militar das Agulhas Negras. em Resende, 
e assessor tdcnico da MICRO SISTEMAS. Formado em Engenharia de Telecomunica<;6es. 
tern 42 anos e d usuario deum CP-500.) 

Joao Henrique Volpini Mattos 



"Os programas que geram programas tern que ser encarados como uma ferramenta de 
trabalho apenas, pois nao vao resolver por completo 99% dos casos. f. mais util para um 
programador profissional ter vanos utilitanos de edi^ao de video, para definir formato c 
campos de impressao e para accssar o registro. do que um programa como o Creator ou 
Producer. O Producer fica restnto a uma string com um byte para cada caratcr ou 
numero inteiro. Nao possui rotina de compacta^ao e serve apenas para mala-direta e 
fichario com ate 256 caracteres. Nao faz uma critica mais dctalhada e as restri^oes sao 
pouco restntas, pois um programa geral nao pode prever tudo". 

( Volpini d programador do Estaleiro Maud, usando os equipamentos IBM 4341 c 
HP 9830. Formado em Engenharia Naval, tern 27 anos e presta ser\'i(os como autonomo 
num Dismac 8002.) 

Renato Degiovani 

"Como utiliza<;ao domestica, cu nao vejo sentido para um banco de dados. Porem, 
dentro das profissScs liberals cxistcm areas onde scria intercssantc a impIemcnta<;ao de 
um BD. Um caso cspccifico seria a criaQao de um fichario com as caracteri'sticas ffsicas 
de vanas espccificacdcs de papeis. isso dentro da mmha area profissional (programacao 
visual). Num micro, esse fichario dana condnjoes ao usuano de cscolher, entre vanos 
papeis.o mais adequado para a realiza^ao de um trabalho grafico eficiente. Isso rufo tira o 
emprego do programador, mesmo porque tais utiliza^des nao justificam a contrata<;ao 
dos servi^os desses profissionais. O proprio profissional liberal pode, com a utilizacao 
do Creator ou Producer, dar solu<;ao aos seus problcmas especificos de uma forma mais 
imediata, pois bastam uns poucos minutos para se ter o resultado final. Se levarmos em 
conta ainda que nao havera o trabalho de digita^ao, teste e depura^ao do programa final, 
entao a opcao pelo Creator ou Producer passa a ser muito intcressantc”. 

(Renato d diretor tdcnico da MICRO SISTEMAS e usuario dos micros do CPD da 
Revista. £ formado em Programaqao Visual e Desenho Industrial pela PUC do Rio de 
Janeiro e tern 2 7 anos.) 



Ivan Camilo da Cruz 



"Os programas que geram programas nao tiram emprego de nenhum profissional, embora 
a primeira vista isso possa parecer, porque a firma que compra um programa desses nao 
iria contratar mesmo um programador. Como profissional. seria mteressantc ter um 
programa como esse para aproveitar as rotinas de accsso c de leitura de tela, que sao 
muito eficientcs e de alto ni'vel. O grande defeito desses programas, porem, e a falta de 
flexibilidadc, pois so permitem cnar programas para um tipo cspeciTico de problema, isto 
e, so serve para gerar arquivos-fichario. Outro ponto: sc no Brasil ele for vendido ao 
mesmo pre$o que nos EUA (mais de 200 dolares), sera mais barato contratar um 

P rogramador, apesar deste levar cerca de dois dias para fazer o que o Creator ou o 
roducer podem fazer em uma hora”. 

(Ivan e programador do Instituto de Quimica da Universidade Federal do Rio de 
Janeiro, onde trabalha com um CP-500. Estudante de Flsica da mesma universidade. 
tern 20 anos e trabalha como programador autonomo num DGT-100.) 
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COLA EM MENOS 
DE 30 SEGUNDOS. 



Colabloc - 1? coladora nacional com 
tempo total de operacao meiximo de 
30 segundos. 

Produto de mesa, compacto, simples e 
seguro, ideal para escritorios que nao 
exijam sistemas complexos de 
encadernatpao. 

Perfeito para atender as necessidades de 
usuarios de computadores e graficas, 
cujo volume de trabalho de 
encadernacao nao seja grande. 

Executa um trabalho limpo por n§o 
necessitar de contato manual com a cola. % 
Nao exige instalapoes especiais, sendo 0 
apenas necessario uma tomada 
rnonofasica de 110 volts 50/60 Hertz. 



laurarvti 

EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodureto Souto, 308 Cambuci CEP: 01539 
PABX: 270-8244 Telex: (01 1 ) 36305 S3o Paulo SP 

REPRESENTANTES TECNICOS E COMERCIAIS 
EMTODOO BRASIL. 



Patenle Requerida 








PROGRAMASQUE ESCREVEM... 



* * * CADASTRO DE UTILIDADES DOMESTICAS * * * 



Entrar dados <E> 

Listar am registro <L> 

Uerificar todos os registros <V> 

Atualizar am registro <A> 

Ret ira urn registro.... <R> 

Iniciar am arguivo <I> 

Sair do programa <S> 



Entre a letra escolhida; nao e' necessario usar RETURN 

Para voltar ao menu sen gravar as entradas ou alteracoes entre 

* em lugar de am campo. 



Figura 5 - Este menu 4 a primeira tela do programa gerado pelo Creator (no caso, o programa- 
exemplo Cadastro de Utilidades Domesticas). Veja a figura 7 (tela do programa gerado pelo 
Producer), que 4 uma tela criada pelo usuario, ao seu gosto pessoal. O Creator nao permite a 
criaqao de telas prdprias; todos os programas gerados terao este menu, s6 variando o tftulo. 



E' este?(Por favor 


entre S se estiver correto) 






Item:COLHER 


Campo 


M 


1 


Descr i cao : COLHERES 


DE CHA ' Campo 


H 


2 


Quant i dade: 12 


Campo 


M 


3 



Figura 6 — Quando pedida a opfdo LISTAR UM REGISTRO (L) do menu do programa gerado 
pelo Creator, apds digitar o campo-chave, aparece esta tela. Observe que at4 nesta etapa, ao ro- 
dar o programa gerado, sao emitidas mensagens para checar se o registro mostrado 4 o que se 
quer. Esta pergunta 4 importante principalmente quando seu arquivo tern vdrias palavras-cbave 
iguais. £ o caso deste programa-exemplo: existem vdrios campos<have COLHER, com campos 
secunddrios (descri^ao) que os diferenciam entre si (COLHERES DE CHA, COLHERES DE 
SOPA, COLHERES DE SOBREMESA etc.). Deste modo, se ao chamar COLHER o programa 
mostrar as DE SOBREMESA e voce quiser as DE CHA, basta responder N d pergunta que en- 
cabefa a tela, e o programa ird mostrar sucessivamente todos os registros cujos campos-chave 
sejam COLHER. 



Dois 



programas 
- exemplos 



Para que voce, leitor, possa ter uma 
idlia mais clara de como sao esses pro- 
gramas gerados pelo Creator e pelo Pro- 
ducer, a equipe do CPD de MICRO 
SISTEMAS desenvolveu dois programas- 
exemplos a partir desses programas gera- 
dores. Atravls de suas listagens, voce po- 
derd analisar as rotinas e t£cnicas de pro- 
grama 9 ao utilizadas e avaliar, voce mes- 
mo, a gama de possfveis utiliza 9 oes que 
o Creator ou o Producer podem ter para 
um usuario ou programador. 

Uma produgao 
do Creator 

ste programa, desenvolvido a partir 
de uma versao em Portugues do 
Creator, pode ser usado por voce para 
relacionar os pertences domesticos de 
sua residencia ou ainda de uma casa que 
tenha incluido no aluguel alguns bens 
pereciveis. Veja na figura 5 a primeira 
tela desse programa, que mostra o menu. 



0 programa-exemplo chamado LAR 
aceita o m^ximo de 200 registros. Cada 
registro tern o tamanho maximo de 54 
bytes e 6 composto dos seguintes cam- 
pos: 

• Campo n9 1 — ITEM — Aqui voce 
define, em ate 16 caracteres, o uten- 
sflio a arquivar de forma mais geral. 
Por exemplo: se existem varios tipos 
de prato, nesse campo voce deve digi- 
tar apenas PRATO. Veja outro exem- 
plo na figura 6 . 0 campo n? 1 sera o 
campo-chave do arquivo. 



• Campo n9 2 - DESCRl^AO - Nes- 
te campo especifica-se mais o item 
armazenado, com descri 96 es do tipo: 
PRATO DE SOPA, PRATO DE SO- 
PA DE PORCELANA INGLESA etc. 
A descri 9 ao nao deve ultrapassar 36 
caracteres. 

• Campo n9 3 - QUANTIDADE - 

Em dois caracteres numericos, voce 
deve definir o numero de itens. Este 
campo 6 armazenado na forma PI 
(inteiro compactado). 




Cadastro de Utilidades Domesticas 



1 REM ......NOME DO PROGRAMAsLAR/BAS*»»»a« 

2 REM ......NOME DO ARQUIVO DE DADOS s LAR/DAT J 0...... 

3 REM ......OPADOS NA UNIDADEO...... 



4 REM ......Tamanho maximo do arquivo e' 200 Reg i stros*.*... 

5 REM ......Tamanho do registro 54 Compactado 4 por setor...... 

10 REM Troca discos - Reinlcio aqui 

20 CLEAR 3000 
30 0PEN'R",1, "LAR/DAT SO" 

40 0NERR0RG0T025001 
50 DIMFS<22),GS<22> 

60 FIELD 1 , 16 AS FS(1>.36AS FS<2),2AS FS(3> 

70 FOR 1 = 1 TO 22sGS< I )="" SNEXT *FC=03UF=0sGS=""sCLS 

BO PRINT" ... CADASTRO DE UTILIDADES DOMESTICAS • « «■ 

90 PRINT 

100 PRINT"Entrar dados <E 

>" 

110 PR INT"1 i st ar um registro 

<L>" 

120 PRINT"Ver i f icar todos os registros........................ 

<V>" 

130 PR INT"At ual i aar um reg I stro. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 

. . < A>" 

140 PRINT"Retira um registro 

<R>" 



150 PR INT"In i c i ar um argui vo... .............................. ,<i 

>" 

160 PRINT"Salr do programa <S 

>" 



170 PRINT"Entre a letra esrolhida; nao e' necessario usar RETURN 



180 PRINT"Para voltar ao menu sem gravar as entradas ou alteraco 
es entre * em lugar de um campo." 

190 ANS= INKEYSsIF AN*=""THEN 190 

200 IF ANSO"E"AND AN*< )"L"AN0 AN*< >"A"AND ANS< >"R"AND ANS< >"I"A 

ND AN*< >~S"AND ANS< >"V"THEN 60 

210 IF AN*="E"THEN 1000 

220 IF AN*«"L"THEN 10000 

230 IF ANi="V"THEN 35000 

240 IF AN»="A"THEN 11000 

250 IF ANS="R"THEN 12000 

260 IF ANt="I "THEN 32000 

270 CLOSES NEW 

1000 CLSsREM ••«••• Inicia entrada •«•••« 

1005 FC-FC+1 

1006 ONFCGOSUB 101 0,1060, 1100 

1007 IF FC< 3 THEN 1005 ELSE 1180 
1010 PRINT"0 i g i t e o items" 

1020 LINE INPUT GS<l)sIFGS< 1 >»"a"THEN 60 

1030 IFG% < 1 ) “""THEN PRINT~»«» ITEM INVALIDO aa*"s00T0 1010 
1050 RETURN 

1060 PRINT"Descreva o Items" 

1070 LINE INPUT G*(2)sIFGS< 2 )="*"THEN 60 
1090 RETURN 

1100 PRINT"Diglte a quant idadei" 

1101 IF UFOO AND GS=""THEN GS= GS<3) 

1110 LINE INPUT GS (3 > s IFGS < 3 >="*"THEN 60 

1111 IF UFOO THEN G1 = INSTR ( GS < 3) , > s IFG1 >0THEN GZ=C INT ( UAL ( GS 

(3) >+VAL(GS) ) sGS( 3 >=MIDS < STRS ( GX > , 2+SGN ( G% ) /2 ) 

1112 IF UFOO THEN G1 -INSTR ( GS < 3) , ) s IF GOO THEN G2=CINT ( -UAL 
< GS ( 3 ) ) +VAL < GS > > s GST 3 ) =MIDS< STRS < GZ ) . 2+SGN ( GX ) /2 ) 
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1120 IT A8S( VAL (GS(3 > ) ) >32767 THEN PR INT"Nunero nuito grande. Te 
m que s er de -32767 a 32767.": GOTO 1100 

1130 IF INK VAL ( GS ( 3) ) ) < > VAL ( GS < 3) > THEN PRINT"Ten que ser nunero 
i nt e i ro." «G0T0 1100 

1 1 40 IFVAL ( GS ( 3) ) >32000THEN PRINT"«*» OUANTIDADE MUITO ALTA »*•" 
:GOTO 1100 

1150 IF VAL ( GS ( 3 ) ) < OTHEN PRINT"«»« OUANTIDADE INVALIDA •••"IGOTO 
1100 

1160 GS(3)-HKIS(VAL(GS(3> ) ) 

1170 RETURN 

1180 ZZS-GSC 1 > 5GOSU8 26000 

1190 REH»»«««» Procura espaco p/ registro •»•»•» 

1200 GOSUB 1210 IGOTO 1260 

1210 RP-RP+1 : IF RP> 200 THEN RP-1 

1220 RX-(RP-l)/ 4 +1:PZ-(RP-1>-(RX-1>« 4 

1225 FIELD 1. 54 »PX AS DXS, 54 AS ZYS 

1230 GET I.RXlIF ZYS< CHRS ( 250 > THEN 1210 

1240 FIELD 1,54»PZ AS TX1.16AS FS(1>,36AS FS(2>,2AS F*<3> 

1250 RETURN 

1260 FOR K-l TO 3- 

1270 LSET FS ( K ) -GS ( K ) « NEXT : PUT 1,RZ 
1280 PRINT "Voce ja ' teramog ? <S/N>" 

1290 THS- INKEYS : IF THS-""THEN 1290 ELSE PRINT THS 

1300 REH*»» Se terainou, fin. Se nao retorna ao menu «•« 

1310 IF THS< >"8" AND THSC >"N" THEN PRINT"Por favor, responda"j"S 
ou " | "N" IGOTO 1280 
1320 IF THS-"S"THEN 60 

1330 FOR 1-1 TO 22:GS( I >-"":NEXT I :FC-0:UF»0:CLS:G0T01000 
10000 REh •»••»• Rotlna de veriflcar registros »••••• 

10010 CLSiGOSUB 27000 'Tenta achar o registr 

o 

10199 REH •••••» Desconpacta os registros no arquivo para aprese 
ntar •••*•• 

10200 GOSUB 28000 

10799 REH«««»»a Apresenta o registro sc a chave for igual • «•• 

• • 

10800 GOSUB 29000 
10860 GOTO 60 

11000 REH »•»■•• Rotina de atualizacao ••••»• 

11010 CLS: GOSUB 27000 'Tenta achar o registr 

o 

11199 REH««««»« Desconpacta os campos no arquivo para apresentar 



11200 G0SUB28000 

11799 REH »»«••» Apresenta o registro se a chave for igual • »••• 
* 

11800 GOSUB 29000 

11810 PRINT"9ual e’ o nunero do caapo que voce quer atualizar?" 
11820 INPUT UF 

11840 IF UF > 3 OR UF<1 THEN PRINT "Canpo llegal":G0T0 11810 

11860 ON UF GOSUB 101 0 , 1 060 , 1100 

11865 RZ-(RP-l)/ 4 *liPX*RP-l-<RX-l)e 4 

11870 IF UFO 1 THEN 11900 ELSE ZZS-GS( 1 > (FIELD!, 54 »PZ AS OX 
S, 54 AS OLSlLSET DLS-STR INGSC 255 , 250 ) : PUT 1,RX« G0SUB26000 
11890 GOSUB 1210 
11900 REH»»«»»« Saida «««»•■ 

11903 I FUF < > 3THENGS < 3 > =HK I S < VAL < Dll 3 > ) ) 

11995 FIELD 1,54»PZ AS TXS.16AS FS(1>,36AS FS(2).2AS FS(3> 

11998 REHaaee Insere campos alterados no registro e envia 

11999 FOR 1-1T0 3 ILSET FS( I > -GSC I ) INEXT : PUT 1,RX: GOTO 60 

12000 REH •»•«■• Retirada de registro ••»•»• 

12010 CLS: GOSUB 27000 'Tenta achar o registro 

12199 REH»»»»»» Desconpacta os canpos do arquivo para apresenta 



12200 G0SUB28000 

12799 REH«*a»»« Apresenta registro se a chave for igual »»•••• 

12800 GOSUB 29000 

12900 REH»»»« Apaga codigos escritos en todos os canpos •••• 
12905 RZ=(RP-1>/ 4 ♦ 1 : PZ- < RP-1 > - < RZ- 1 ) * 4 

12910 FIELD 1, 54 «PZ AS DX*. 54 AS DU: LSETDH-STR ING4( 255, 25 
0) :PUT 1 ,RZ:GOTO 60 

22001 DAT A It en : 

22002 DATADescr icao: 

22003 DATAGuant idade: 



25000 REH ••■•••ROTINA DE ERR0»«»»«» 

25001 IF ERL < 10000 AND ERL >1000 THEN PR INT"Erro provavel nas val 
idacoes de canpos" 

25010 PRINT"Erro encontrado na linha"(ERL 
25020 PR INT"Err o »«";ERR/2+l :CL0SE:RUN 

25999 REH»«««»» Algor it ino de Hashing •••••• 

26000 FOR ZZ-1T0LEN<ZZS> 

26010 XR=XR.ZZ»ASC<HIDS«ZZ*,ZZ,1 > > 

26020 NEXT ZZ 

26030 XR=XR»XR»XR:Xl=STR*<XR> : RP=VAL <HI DS < X* . 5 , 4 > > :XR-0 

26040 RP= 200 »RP/9999i RETURN 

27000 REH*»««*« Procura registro •••••• 

27010 GOSUB 1010 :KF»=GS( 1 > 

27020 0S=0 

27030 ZZS*K FI: GOSUB 26000 'val a rot.de hashing pegar pos. 

27040 RP=RP + 1 : IFRP > 200 THEN RP = 1 'nao achou? volta p/ Rl 

27045 RZ«<RP-1>/ 4 ♦ 1 : PZ- < RP -1 >- ( RZ-i > ■ 4 

27046 FIELD 1,54«PZ AS TX4.16AS F*<1>,36AS FS(2),2AS F4(3> 

27047 IF 0S=1 THEN GET 1 , RZ : RETURN 

27050 GET I.RXlIF LEFTS < FS ( 1 > , LEN< ZZS > > -ZZS THEN RETURN 
27055 FIELD 1, 54 «PZ AS OXS, 54 AS ZYSiGET I.RXlIF ZYS-STRING* 
< 54 ,255) THEN PR I NT"Reg i st r o nao 1 oc a 1 i zado . " : RUN 
27057 FIELv 1,54«PX AS TXS.16AS FS(1),36AS FS(2>,2AS FS(3) 

27060 GOTO 27040 'Nao, tenta proximo. 

27999 REH««««»« Desconpacta os canpos do registro •••••• 

28000 GS(1>-FS<1> 

28010 GS(2)-FS(2> 

28020 GS ( 3 > “STRS ( CVI <FS<3)>> 

28998 RETURN 

28999 REH»*»»»* Apresenta registro encontrado •••••• 

29000 CLSUF 0S=0 THEN PR INT"E ' este?(Por favor entre S se estlv 
er correto)" 

29010 FOR I-1T0 3 

29020 READ RSiPRINT RS , ": " , GS < I > , T AB < 50 > , , "Canpo R"il 

29030 NEXT: RESTORE 

29035 IF OS-1 THEN RETURN 

29050 ANS-INKEYS: IF ANS=""THEN 29050 

29055 IF ANS< >"S"THEN GOSUB 27040:GOSUB2SOOO:GOTO 29000 

29999 REH«»»»*» Validacao de canpo nunerico •••••• 

30000 CD-INSTR(CDS.CHRS<32> > : IF C0>1 THEN CDS-LEFTS(CDS,CD-1 >*HI 
DS<CDS, CD*1 > 1GOT0300001ELSE IF CD-I THEN CDS-HIDS < CDS , 2 > : GOT0300 
00 

30002 CO-INSTR < CDS , IF CD>0 AND INSTR (CD+l , CDS , >0 THEN E 

-1 1RETURN 

30005 F0RZZ-1T0 LEN< CDS > 

30010 IF HIDSCCDS, ZZ , 1 > <"0"0R HIDS (CDS, ZZ, 1 > >"9"THEN IF HIDSCCDS 
,ZZ, 1 >< >"."AND HIDSCCDS, ZZ, 1 >< >"-"THEN E-H RETURN 
30020 NEXT ZZ 
30030 RETURN 

30999 REH« •■• Validacao de canpo alfabetico •••• 

31000 FOR ZZ-1 TO LEN(CDS) 

31010 IF (HIDSCCDS , ZZ , 1 ) < "A"0R HIDS ( CDS , ZZ , 1 > >"Z" > AND HIDS(CDS,ZZ 
, 1 > < >CHRS ( 32 > THEN E“1 1RETURN 
31020 NEXT ZZ 
31030 RETURN 

32000 REH ■•■•■■Inicia o arquivo HASHED»«»»»* 

32010 PRINT"Todos os dados anteriores, se exist iren, serao destr 
u idos." 

32020 PRINT"Para continuar, pressione a tecla C" 

32030 ANS-INKEYS: IF ANS-""THEN 32030 ELSE IF ANS< >"C"THEN RUN 
32035 PRINT"Un nonento, por favor." 

32040 FIELD 111.255 AS AZS.l AS DZSlLSET AZS-STR INGS ( 255 , 255 > I LS 
ET DZS-CHRSC255) 

32050 FOR 1-1 TO 50 1PUT1 , 1 '-NEXT :RUN 
3S000 FOR K -0 TO 199 :RP=K 10S-1 1G0SUB27040 

35005 FIELD 1,54»PZ AS TXS.16AS FS(1),36AS FS(2),2AS FS(3> 

35010 IF FS( 1 > > CHRS ( 249 ) THEN 35990 
35050 GOSUB 28000:REH Desconpacta para nostrar 
35960 GOSUB 290001RFH Hostra 

35970 FOR J-l TO P000:NEXTJ:REH Espera un pouco antes do proximo 
35990 NEX TK s GOTO 60 
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^otepao integral para o seu Micro 



Estabilizador Eletrdnico 

mini 



Proteipao ultra-rapida contra variapoes 
da tensao da rede em ate ± 22% 
estabilizando-a em + 1 %. 

Capacidade de 
0 25, 0 4, 0.6. 0.8 
e 1 KVA. 




Gerador Eletrdnico 



GERATRON 



Quando a rede eletrica (altar. GERATRON 
continuara alimentando o seu micro como se nada 
houvesse acontecido 
Capacidade de 200 VAj 
continuamenie 
e 500 VA de pico 
Bateria interna 
com autonomia 
de 90 minutos 
a plena carga. 

R. Or. Gamier, 579 - CEP 20971 - Rocha -TeiT PABX (021) 261-6458 

Representante Sao Paulo 



c 





Is 

Linha Especial para Micros 

Protegao completa para o seu micro, 
mantendo a alimentacao altamente 
estavel e sem mterrupcao Forma de 
onda senoidal Capacidades de 0.25. 0 4, 
0 6. 1.1 5. 2.5. 3.5 e 5 KVA Opera com 
quatro baterias comuns de 12 volts. 



GUARDIAN 



EQUIP. ELETRON. LTDA. 

Direto 201-0195 • Telex r fi (021) 34016 - Rio de Janeiro - RJ 
Tel.: (Oil) 270-3175 - Representantes em todas as capitals 







PROGRAMASQUE ESCREVEM PROGRAMAS 



CRDRSTHQ DE BENS 

Programa teste criado pelo PRODUCER* no CPD da MICRO SISTEMAS 



OPTIONS MENU 
<1> (D)ELETE A RECORD 
<2> (S)EARCH FOR ANY 
<3 > < R ) EPLACE A FIELD 
<4> (B)ATCH ADDITION 
<3> (E)XIT TO MAIN MENU 



D 

KEY 

D 

MODE 

ENU 



FILE STATUS 1 
LAST RECORD ACCESSED- > A 

• ACTIVE RECORDS >23 

# DELETED SLOTS 0PEN->0 

FILENAME > BENS/DAT 

ERROR STATUS—) 



PRESS NUMBER BY MENU CHOICE 



<?> 



Figura 7-/4 primeira tela do programa gerado pelo Producer, no caso o programa-exemplo 
Cadastro de Bens. 



CADASTRO DE 



BENS 



Natureza « ACOES 
Re-ferencia: BANCO DO BRASIL 



Montantei 1000 Unidade* 70.00 
Obs i CORRETORA DE VALORES POUPE LTDA 



ALORl 

70000.001 



> WRITING *** 



Anotacoes ou observacoes genericas. 



Figura 8 - Esta i a tela gerada pelo programa Cadastro de Bens ao se selecionar a opfdo (2) 
SEARCH FOR ANY KEY do seu menu. Ao contrdrio do Creator, no Producer todas as telas 
tern que ser produzidas pelo usudrio. 



Uma criagao 
do Producer 

O programa-exemplo, chamado Ca- 
dastro de Bens, foi desenvolvido 
no Producer original, em Ingles. Ele ser- 
ve para criar um arquivo com todos os 
dados relativos aos seus bens pessoais, 
desde imdveis at£ ddlares. Veja na figura 
7 a primeira tela gerada pelo programa. 

O registro desse arquivo aceita um 
mlximo de 128 bytes, sendo alguns de 
controle do mdtodo de acesso utilizado 
e os outros dispostos nos seguintes cam- 
pos: 

• 19 campo — NATUREZA — Ele deve 
especificar, em atd 12 caracteres, 
qual o tipo de bem, como A^OES, 
APARTAMENTOS, JOlAS etc. 

• 29 campo - REFER£NCIA - Defi- 
ne melhor a que bem voce esti se re- 
ferindo. Por exemplo: se a natureza 
for APARTAMENTO, a sua referen- 
da pode ser o endereso do imdvel. 
Esse campo pode ter o tamanho ma- 
ximo de 25 caracteres. 

• 39 campo — MONTANTE — £ o 
numero de bens que voce possui da- 
quela natureza. Tern ate 5 caracteres 
numericos. 

• 49 campo - UNIDADE - Valor uni- 
tdrio do bem descrito. Pode ter at£ 9 
caracteres numericos. 

• 59 campo - OBS - Neste espaso vo- 
ce pode fazer qualquer tipo de obser- 



va^ao, como HERAN^A DAQUELE 
TIO RICO, PRESTa£ 6ES SENDO 
AMORTIZADAS PELO FGTS etc, 
desde que n2o ultrapassem 58 carac- 
teres. 



Existe ainda um campo chamado 
VALOR, que apresenta o produto do 
MONTANTE pela UNIDADE. 

Veja, na figura 8, um exemplo de um 
registro do arquivo criado. 



Cadastro de Bens 



- TH£ PWDUCER PROGROM l*XTER MB IN MODULE <01983 BV SOFTLdWE 
OF THE FUTURE.. DISTRIBUTED BY TEXOS COMPUTER SYSTEMS 

10 REM ... PROGRAM NOME - CQDOSTRO DE BENS 

11 CREATED BY RENOTO DE8I0V0NI ON 10/07/8* 

13 8-PEEK <-108 1 IN-PEEK (-31) 

30 CLEOROICLEOR MEM-*300< DEFXNTQ-ZIDEFOBLM 

32 0NERRORGOTO69O0'QLL ERROR TROPS 

3* DIMG9,I»,X,M,Y,F,PU»,FX»,CS.PF,LR,I3,C1».PU,F2,FS*.FX,FY,0,U3.F8,C09,CP,FL,Z. 
KE9,03,NF.DS.26.RF.TQ»,Z3,Z7,FL9.DU*.B19,BZ»,B3.Z1»,B9.PR«,EN.KF,B6.XZ.FO.EF.K2, 
00,FZ*,S3,B*,S9,S*,J,N1,RF*.TT«,F0*,E9«,G3*,RE» 

33 DIMSF. RN. SC*. ZO.LI.DL.il, RE. CO. B3* . B*9 . B39 , BR* ,ER* ,RR* , BD« ,LT ,SG. TV*. 81*. G2», 
S** . Z3,PW,CE • T29 ,ED, XX • DS9 i B7, T2,RC * 8D.PS9 ,B1 , Q2»E19,NR , XQ.PQ9 ,GT , D1 . D3,F89,QQ9 1 
E2»,PL.H1,HZ,H3,L*.EG,P.X1,IP«,Z*,PG,XX».CR»,B3.B0,B1,Z8 

36 DIMZ1,RR,N6,L1,L2.L3.L*.X6 

*0 DIM 09 < 33 ) , C9 < 33 > . 0 < 33 • 3 ) *80<33) *009 <33 ) ,G<33),6T9<33),T9<33>.RS<16) ,RM9< 10) • 

KE9<10>,G9<33>.B8<200><SC9«-DSRBE-<CS-8<FS-30<PR9----)30TO*7 

*1 PRINTtO. ■■ ■ ' ■ 

■= .r - - -■ ■Lfgrrt ji 7c ,_r 'Dd- dl nj 

*3 PRINT-Proor«M <Ml, criado pals PRODUCER, no CPD d. MICRO SISTEMOS 

•I 

** PRINT- - , 

•3 REM 

*6 PRINTCHR*< 31 ) I 1 RETURN 
*7 CLSlGOSUBM 'DISPLAY TITLE 

30 IF rZO-'- THEN FZ9- "BENS/ DOT - 

31 PRINT8312, - " 1 1 PRINT -NOME OF YOUR DATA FILE <DEFOULT-- IFZ9 1 - ) — >- I ILINEIWUTFZ 

• 

32 IF F29--" THEN FZ9-" BENS /DOT" 

33 PRXNT«312,CHR9<31> I "... STONOBV— CHECKING FOR O FILE COLLED— ) - I FZ9 I - ...-|iP 
RINT80.--I 

5* DOT03Z717. -6902, 6. 9038. 903*. -3290. 11017. -18367, 23**. 823*. 8382, 3332. 6187, -7693 
1-13967 IF0RX-0T01* <REQDRS< X 1 1NEXT 

53 CS-08 1 FS-30 1 PR9-CHR9 < 0*3 1 FLQSH ROTE 6 PROMPT 

50 DEFFNCP-236.PEEK < 16*17 ) .PEEK < 16*16) -13360 <P0KE16*19, 1*3* El •--•«. BOUNDARY LIM 
IT ... -<E29-"... ILLEGAL CHOROCTER •»•- lE9»-STRING«< 28. 191 ) «STRING»< 28.8) 1DEFF 

YS*< 01— RIGHTO < STR9 < Q> ,LEN<STR*<0) 1-1) 

58 C09-C)«9<13)*CHP9<6*>-STRING9<2,8).CHR9|9>.CHR9<91 ).0»>9< 10)-CHR91Z*>*CHR9(2S 
>*CHR9< 31 >*CHR9< 27)-CHR9<7).CHR9<61> ' INKEY CODES 

76 KE9< 1 1— - QBCDEF6HX JKLMN0P0RSTUVWXY2 ' 00X6' <1.1— <17,. / 1.123*367890" 1KE0<2) - B 012 
1*36789 .-.-IKE*<3)--YN - IKE*< *)-CHRO< 13) ' INKEY RESTRICTIONS 

77 KE*<3)-— IKE0<6)»--1KE*<7)---!KE*<8)---1KE*<9)---1 

IS S3- 1 ■ S*-3 : RC-1 28 1 EM-708 < NF-3 ' DS- 1 <01-83* ■ D3-898 1 OL-39 SYSTEM PORQMETERS 

J6 ' INKEY DOTQ 

97 DAT012* 266, 1 ,25* 332, 1 *3* *38, Z, 10, *73,2,38,381 . 1 , 13. *33 . 2 iKF-1 IK2-2 



90 TORI -ITONF- OS l REODD < X,1),D<X,Z),D<X, 3)1 NEXT 
99 GOSUB16O*GOSUB93OOiCLOSE<GOTO132O'0O MENU 

103 FORX-1TOCS* 10* INKEYO l IFIO< 1 - - TMENPRINTCHRO < IS) I <RET<JRNELSENEXT1PRINTCHR0< 1*) 
I <F0RX-1T0CS<I9-I)*:EY9)IFI9< )--THE)*»RINTCHRO< 13) I <RET<JRNELSENEXTIPRINTCHRO< 13) I I 
G0T01O3 

109 SEARCH TESTS 

110 I FTOO-FOOTHENFO— 1 < RETURNELSEFO-O l RETURN 

111 I FTQO < FOOTHENFO— 1 • RETURNEL SEFO-O < RE TURN 

112 I FTQO ) FOOTHENFO— 1 < RETURNELSEFO-O t RETURN 

1 13 IFINSTR < CO < 00 ) , TOO ) 10THENF0— 1 < RETURNELSEFO-O l RETURN 
11* I FTQO- T VOTHENFO— 1 1 RETURNELSEFO-O < RETURN 

113 I FTQO < TVOTHENFO— 1 l RETURNELSEFO-O < RETURN 
116 1 FTQO ) TVOTHENFO— l < RETURNELSEFO-O l RETURN 

120 FIELD 1,2 OS BIO, 2 OS 820,12 OS C0<1>,23 OS C0<2),3 OS COO). 10 OS C0<*),38 
OS COO) , 13 OS C0<6) ,0 OS DUO.l OS FLOlRETURN 

129 '.BTREE SUBROUTINES* 

1*0 FXELD1 , 2OSB30 . 2OSB*0 ,2OSB30 .2OSBR0 . 20SBD0, < RC-10 ) QSDSOi RETURN ' ROOT FIELD 

130 OPEN FILE 

160 OPEN-R- , 1 , FZO , 128 

170 G08UB1*0<8ET 1,1 IZ3-CVI < B30 ) 1 B 6 -CVI < B30 ) < B7-CVI <B*0 ) <89— CVI < BRO ) 18 D-CVI < BDO ) 1 

RETURN 'BET ROOT INFO 

180 'GET 0 RECORD 

190 0OSUB12O' FIELD BUFFER 

200 BET 1 ,Z3<B3-CVI < BIO ) <B*-CVI <B20 ) ‘GET LINKS 
Z10 Z10— CO<KF> ITT0-C0<K2) IRETURN 
220 PUT IN BUFFER 

230 FOR X-l TO 6ILSET CO<X >-Q0< X ) iNEXT X1LSET FLO-".- ‘LSET RECORD 

2*0 RETURN 

230 UP DOTE ROOT 

260 GOSUBl*0<LSETBD9-f9<I9<BD) <LSETB38-MKI9<Z3> <LSETB*9-MKI9<B7) IL8ETB30-MKI0 I B6 ) 
ILSETBR0-MKI0<B9) ILSETDSO--THE KEY REC0RD-*STRING0<73. ) IRETURN 
270 'WRITE EDITED RECORD 

280 PRINTOEM.E90I-* UPDATING EDITED RECORD »- I < GOSUB 1 60 ' OPEN 

290 GOSUB 1 20 <G0SUB230' FIELD 1 LSET 

300 LSETB10-MKI0<B3) ILSETB20— MKIO<B*) ‘LSET LINKS 

310 PUT 1 ■ ZO < CLOSE < RETURN ' HRI TE RECORD 

330 ..BTREE 1 ODD 

3*0 GOSUB 160 1 IFBD< 10THEN23-BD < GOSUB 190 1 BC-B3ELSEBC-0 
3*1 Z3-23I IFBD< )OTHENBO«BD< BQ9-“BD"ELSEBO-B9 < BQ9-"B9" 

3*2 GOSUB190 1 IFTQ9 )Z19THEN3*3ELSET39-TQ9»STRING9 < LEN < 219 ) -LEN< TO* ) , 32 ) < T**-T2»*S 
TRING* < LEN< TT* )-LEN< T29 ) , 32 ) 

3*3 IFZ19— T39THENIFTT9— T*»TWENIFB6< >OTHENPRINT«EM, E9» I "QLREODY IN FILE" I 1 FORM- IT 
0300<NEXTH<CL0SE<RETURN 

3** IFB3— 0THEW.SETB19— MKI»<BQI <PUT1 ,23<GOT03*6ELSEZ3-B3<GOT03*2 
3*3 IFB*-0THENLSETB29-MKI9 < BO) ePUTl ,Z3< G0T03*6ELSEZ3-B* < G0T03*2 

3*6 LSET819— MKI9<0> <LSETB29-MKI9<0) I S0SUB230 < PUT ) . BO <B6-B6*1 <B7-B7*1 < IFBQ9--B9-T 



54 



MICRO SISTEMAS, agosto/84 






HENB9-B9*1ELSEIFBA*.-BD"THENBD-BC 
3-7 G0SUB260IPUT1.HCL0SEIRETURW 
990 --BTPEE (DELETION 

500 PPINT*EM,E9*!-. DELETING RECOPD • - I :GOSu8160lZ9-Z3iZ3-Z3lGOSUB190l IFTB 

• ( )Zl *THEN3*>ZELSEIFTT*( )T2»TH£N302ELSEirB3-vRNDB9-OTHEN23-Z9lGOT03IOELSEIF89-OTH 
ENZ3-B3iGOTO310ELSEIFB3“OTMENZ3-B9 * 60T0310ELSEB1 -25:23-89 1 23-0 
301 irZ9-0TMENCL0SriRETUPN 

502 23-29 1 G0SUB190 1 B3-CV I ( B 1 » ) i BO-CVI ( B2» I I IFTB9-Z1 * THENIFTT*-T2*THEN509ELSEB1 -Z 
9:28-1 l Z9-B3IG0T0301 

303 Bl-Z9iIFTR*,Zl*THEN23-HZ9-B3iGOTO301ELSE28-0i29-B0iG0TO301 

309 IFB3-0THEN307ELSEir80-0THEN309ELSEZ3*61lG0SUB190i IF28-0TH£NLSETB2*-MKI»(8O)E 

LSELSETB16-MK It ( BO ) 

303 PUT 1, 23 1 2-BO 

306 23-2 < GOSUB 1 90 1 Z2-CVI (Bit) i IFZ2< >0THENZ-Z2iG0T03O6ELSELSETBl*-f*:I* ( B3 ) IGOT031 

0 

307 I FB0-OTHEN3O9ELSEZ3-B1 i GOSUB 1 90 1 IF28-0TMEM_SETBZ*-MK I • ( BO ) ELSELSETB l *-HK I • ( B 
01 

306 G0T0310 

309 23-BHQOSUB190lIFZ8-OTHENLSETB2*-MKI*(B3)ELSELSET81*-T«I*(B3) 

310 B6-B6-1 lPUTl,Z3l23-Z9lG0SU8190IL3ETFL*----IL3ETBl*-MKI*(BD> :PUT1 ,Z3iBD-Z3lG0 
SUBZ60 1 PUT 1 , 1 l CLOSE l RETUPN 

7Z0 ' --BTREE i SEARCH 

730 FO-O I S»- “ ■ i GOSUB 1 60 1 IFB6-0THENF0-0 1 RE TURNELSET2- 1 1 1 FLEN ( T2* ) -OORLEFT* ( T2* . 1 ) 
-- -THENT2-0 

731 G0SUB733I IFZ3-0THENCL0SE IRETURN 

73Z 0OSUB199O:ZO-Z3lIFT2-OTHEN739ELSEirL£FT*(TT*,LEN(T2*>l-T2*TH£NCLOSElFO— HRE 

TURNELSEG0SUB737 

733 IFZ3-OTHENCL0SEIRETURNELSE732 

739 GOSUB 1 300 l I FS»- - Y - THENFO- - 1 i CLOSE ■ RETURNELSEG0SUB737 i G0T0733 
733 Nl-LEN(TB«> I 23-23 ■ GOSUB 190 

736 irT0*)LEFT*(Zl»,Nl>THEN738ELSEIFTB«-LEFT*(Zl*.NI>THENRETURN 

737 IFB3< »0THENZ3-B3>GOSUB19O:G0T0736 

738 IFB9I ) 0THENZ3 • B9 1 GOSUB 1 90 l G0T0736ELSEZ3-0 1 RETURN 
960 ' INKEY ROUTINE 

1000 CE-FNCPlPRINT«EM,E9«|El*l:F0RX-lT0293lNEXTXlPRINT*EH,E9*|E9*l l GOSUB 19001 PR I 
NTBCE.--IIRETURN BOUNDARY ERROR 

1010 CE-FNCPlPRINT«EM,E9*lE2*|lF0RX-lT0293INEXTXlPRINT*EH,E9»IE9*| l GOSUB 1 900 1 PR I 
NT*CE , I l RETURN ‘ ILLEGRL CHOP ERROR 

1012 a*(PF)-0*lPRINT«EM,E9»|-riELD NUMBER’ -|1GN-PF 

1013 G0SUB30701 IFB*( >CHR* ( 13 ) THENPRINTB* I i 5 n»-GN»*P» i G0T01013 

1019 IFVAL<GN»MSF ORVOL (GN« 1 ) EFTHENGN*- - - 1 GOSUBIOOO 1 PF-GN 1 GOTOI 1 90ELSEPF-V0L ( ON 

•) l B*-” -iGN*--"l PRINTfEM, E9» I IG0T0119O 

1013 IFF-OTHENPRINT*CP-LB,--| l F-LBELSEPRINT«CP. " I IF-O 

1016 GO TO 1030 

1018 B*(PF)-AB*(PF> I GOTO 1190 
10Z0 'GET KEY PRESSED 

1030 POKE16910,10OiPOKE16912.0iGOSU8103HFI*---THEN103OELSEI3-INSTR(CO*.I*>i 0NI3 
GOTOl 110. 1190. lZ10.1210.lZ30.il 10, 1110,1230,1270,1280, 1013, 1012 , IOIBi IFINSTRIKE* 
, I • I -0 TMENGOSUB 1010IGOT01030 

1030 LA— LEN( A* ) I IFLA)FL-1BN0F )LA-1 THENGOSUB1000IGOT01030 'CHECK LENGTH 
1070 PRINTI*|IF-F-llIFF(-LRTMENMID*(B«,F.l)-I*iGOT0103O'DISPLflY 1 SOVE CHflR 
1090 B*-a*-I*lLA-LEN(B*> IGOTOIOSO'SAVE IN B» 

1100 NEXT FIELD 

1110 B*(PF>-A*’SAVE CURRENT FIELD 

1111 IFI3()6TMENGOSUB6O03lPRINT*CP-F,-"|lA*-B»(PF)'DO CW.CULBTIONS 
1113 IFI3-1BNDPF-EFTHEN1190 ’EXIT (ENTER LBST FIELD) 

1113 IFI3-7BNDPF-EFTHENGOSUB1000IGOT01030 
1120 IFI3-6ANDPF-SFTMENQOSUB1000IGOT01030 
1130 IFI3-10RI3-7THENPF-PF-1ELSEPF-PF-1 
11*0 F-0lCP-0lR*---lI3-0lLB-LEN(B*(PF) ) 

1130 GOSUB 1 900 'OUTS IDE PROCESSING 

1170 KE*-KE*(D(PF,3>>lCP-D(PF,2>iFL-D(PF,l>ia*-0*(PFHPRINT«CP,A*(PFIlCHR*(l3l|S 
TRING*(FL-LEN(a*(PF)),PR*)lCHR»(13>|IPRINT«CP.--lC»«*(l3)| 'UPDATE DBTB 
1173 80T01280 'BUTO PROMPT DISPLBY 
1180 80T01030 

1190 B*(PF>-A*lFORX-S3TOS9lBR*(X>-0*(XllNEXTXlRETURN'EXIT INKEY 

1210 F-F-l i IFF( OTHENF-F-1 l GOSUB 1000 I80T01030ELSEPRINTCHR*( 29 ) l 100T01030' CURSOR 0 
OWN 

1230 F-F-l l IFF1LATHENF-F-1 iGOSUBIOOOlGOT01030EL8EPRINTCHR*(23> I 'GOT01030' CURSOR 
UP 

1230 IFLB-FTHEN1030EL8EA*-LEFT*(A*,F>-RIGHT*(B»,LB-F-1) lPRINT«D(PF.2) * 09 1 PR* I l LB 
•LEN(fl*> lPRINT«CP-r,-"l lfl*(PF)-A*iG0T0103O'DELETE B CHAR 

1270 tFLB-FLTHENGOSU81000IGOT01030EL8EB*-LEFT*!a«.F)-- --RI8MT*!B*,LA-F> 1PRINTBD 
(PF.2) t A* 1 i L A-LEN ( a* ) I PR INT«CP-F . - • I iB*(PF > -A* I80T01030' INSERT CHAR 
1280 GOSUB 139010N PF GOTO 9021.9091,9061.9081,9101 

1390 rORX-Dl T0D3STEP69 l PRINT* X .STRING* ( DL , 32) I I NEXT! (RETURN' BLANK INPUT BRER 
1360 FORX-lTONF-DSlB*(X>---INEXTlRETURN'NULL R»l) 

1900 'OUTSIDE PROCESSING BY USER 
1938 RETURN 

1990 FORM— 1T0NF-DS *PRINT*D(M, 2) , C*(H) I (NEXT (RETURN* DISPLBY fl RECORD 

1300 S*--"IPRINT«EM,E9«|-(*-|FNS*(Z3)|-) CORRECT ITEM ( V/N)?- | IG0SUB103IS*-I*l IF 

S*(>*Y"BNDS*()-N-TH£N1300ELSEPRINTS*I IRETURN' IS CORRECT ENTRY’ 

1310 'MAIN MENU 

1320 CLOSE I GOSUB9 1 I PR I NT *998 , " ■ ICHR* ( 191 I (STRING* 17, 131 ) I ' PROGRAM MENU ‘ISTRIN 
G*( 6, 131 > ICHR*( 191 ) 

1321 PRINT- " ICHR* ( 191 ) | “ <1) BDD B RECORD TO FILE -|CHR*(191) 

1322 PRINT- • I CHR*( 191)1* 12) EDIT OR DISPLBY RECORD" ICHR*( 191 I 

1323 PRINT- - ICHR*! 191)1“ (3) PRINTED REPORTS MENU -)CHR»1191) 

132* PRINT- - iCMR»( 191 ) | " (9) OPTIONS MENU -|CHR*(191) 

1323 PRINT- - ICHR*! 191 ) I “ 13) EXIT FROM PROGRAM -)CHR*(191) 

1326 PRINT- - I STRING* (29,131) IQOSUB80001PRINT l PRINT "PRESS NUMBER BY MENU CHOICE 
<71 - 1 l GOSUB 1327 1 GOTOl 390 

1327 F0RG9-1T0FSIB*-I)*EY*!IFB«! )- - THENRETURNELSENEXTG9 (POKE 16283, 299 (POKE 16286 , 
293 ■ POKE 1 6287 , 2*6 i POKE 1 6283 . 32 1 P0KE1 6286 . 299 1 POKE 1 6287 , 293 1 POKE 16288 , Z96 1 POKE 1 62 
89,60 

1328 B*-INKEY*lira*l ) - - THENRETURNELSEF0RG9-1 TOFS i R»-INKEY* i IFB* 1 ) ""THENRETURNELS 
ENEXTG9 l POKE 16288, 60 l POKE 16289 ,63 (POKE 16283 • 32 ■ POKE 16286, 32 1 POKE 16287 , 32) GOTO 132 
7 

13*0 Z-VBL1B* i 

1391 IFINSTR ( SC* . fl* ) )0THENZ-IN8TR( SC* ,B* ) l G0T09O70' OPTION LETTER 
1393 IF2(10RZ>STHEN1320 

1530 IFZ>ZTHEN1370ELSEPRINT*0.--|IGOSU82330 
1370 GOSUB 1 360 l ON2GOSUB 1620, 1890.3000,9000,7000 
1600 GOSUB136OIG0T01320 ' RETURN 
1610 CREATE RECORD 

1620 SF-S3lEF»S9lB*---IPF-SFHFB0THENPRINT«EM, -BATCH ADDITION MODE-*’ IBBI IGOSUB1 

19OELSEGOSUB1190’80 IN1EY 

1630 TB*-B*(KF)lT2*-A*(K2)'KEY 6 2ND KEY 

1690 I FLEN 1 TB* ) < 10RLEFT*! TB* , 1 " - THENCLOSE l IFBOTHEN9SOOELSERETURN 'EXIT NO DAT 
B 

1693 I FBOTHENGOSUB9900 ■ GOSUB1 360 ( PRINTSO .-'ll GOSUB2330 1 GOTOl 620 'BATCH MODE BDD I 
TION 

1630 PRINTSEM.E9* | "••• URITING •••" 1 l 1FB0THENPRINT-*- IFI - OF'lBBI 
1660 GOSUB390 ' BDD RECORD 
1663 TO*-- - I T2*-” ■ 

1670 CLOSE IRETURN 
1700 ' SEARCH FOR RECORD 

1720 fl*---lPF-KFlEF-KFiSF-KFiG0SU811*0iIFI*(>-*-THENB*.— iPF-K2iEF-K2lSF-K2iG0SU 
B1 190 'GET KEY 6 2ND KEY 

1729 'TEST UHAT FOUND 

1730 PRINT«EM,E9»|-. SEARCHING FOR RECORD | l TB*-B»! KF ) IT2»-A* (K2) I IFLEN1 TB* ) .0 

ORLEFT* 1 TB* » 1 )-" - THENCLOSE l RETURNELSEG0SU873O l CLOSE ■ I FF0BNDN0TEDTHEN3O60ELSE I FF 
0BNDEDTHENRETURNELSEIFS*»-Y-0NDN0TEDTHEN3O6OELSEIFS*--Y-BNDEDTHENRETURN 

1790 IFB6-OBNDNOTFOTHENPRINT«EM,E9*i-NO RECORDS PRESS ENTER" I IG0SUB3070IRETUR 

NELSEIFS*- 'N-THENPRINT«EM,E9»1-N0 MORE MATCHES- -PRESS ENTER" i IGOSUB3O70 
1730 IFS»--“THENPRINT«EM,E9*|-N0 MATCH FOUND— PRESS ENTER- I IGOSU83O70 
1760 RETURN 
1839 ’EDIT RECORD 

1890 ED--1 1 GOSUB 17201 ED-0 'GET RECORD TO BE EDITED 
1893 IFS*-"N“OR( S*--"BNDNGTFO ) THENRETURN ' NOT FOUND 



1830 I FLEET* 1 21* ,LEN! TB* > ) ( ; TB* THENRE T URN 1 PECORD NOT FOUND 
1833 I FLEN! TA* ) -OTHENRETUPN 'NO ENTRY MADE 

1860 F0RX-1T0NF -DS > B* 1 X > -C* 1 X ) 1DEFUSR-VBRPTR1RSI 0 ) ) I JX-USR 1 VBRPTRl Rtl X ) ) ) INEXTX ' 
SET IWCEY ARRAY WITH CONTENTS OF THE LOCATED RECORD 
1870 EF-S9iSF-S3iPF-S3iB*-" “ iGOSuBl 190 ' EDIT THE RECORD 

1872 F0RX-1T0NF -DSifl* ( X ) -fi*l X ) -STRING* 1 D! X , 1 ) -LEN1 A* 1 X ) ) ,32) (NEXT 

1873 IFLEFT*1B»(KFI ,6 )- “DELETE “ THENGOSUB1920I T2»— C* IK2) ( TB»-C* 1 KF > I GOSUB300 * CLOS 
E IRETURN DELETE RECORD IF MARKED FOR DELETE 

1880 IFB* 1 KF) 1 )C*(K.r ) THENG0SUB9200 1 TB»-C*1KF ) IT2*-C»(K2) : GOSUBSOO I CLOSE l TB*-B* 1 K 
F) lT2*-A*(K2) IG0SUB16301CL0SE IRETURN' DELETE 6 PE-BDD THE RECORD IF THE KEY HAS B 
EEN EDITED 

1890 F0RB3- 1 TONF-DS l IFC* I B3 I -B* 1 AS ) THENNE XTB3 IRETURN 
1910 G0SUB280 1 RETURN 1 MRITE EDITED RECORD TO FILE 

1920 PRINTfEM ,E9* I "DELETE -ARE YOU SURE ( Y/N) " I IG0SUB3070I IFB*-” Y-THENRETURNELSE1 

320 ' SURE YOU WANT TO DELETE 

2330 PRINT : 

2S31 PRINT - CBDBSTRO DE BENS -| 

2332 PRINT " -I 

2333 PRINT - "I 

2339 PRINT -Naturazal "1 

2333 PRINT -Ra«ara*clal I 

2336 PRINT - fcn | I 

2337 PRINT -Hontantai Unidadai I 

2338 PRINT - "I 

2339 PRINT "Ob*l ‘ I 

2390 PRINT ■ ■ . 1 . a I 

2391 PRINT - > I" I 

2392 PRINT i 1 I 

2393 PRINT “ |-1 

239* PRINT - I 

2393 PRINT l IPO 

KE 16383. 193 i RE TURN 

3060 PRINTfEM. E9» I -PRESS (ENTER) )-| 

3070 GOSUB103lB*-I*lRETURN'IMCEY 

9000 REM 

9001 IFFZl )0THENRETURNELSEF2-HPRINT«199,- THE PRODUCER I " I l PR INT *258 , " 

(01982 8Y BOTFI " I iPRINT* 322* "TEXAS COMPUTER SYSTEMS " I I RETURN 

9021 PRINT •839,-Dl*crl9l69 naata caaRO l IMOVEL. CARRO. ACOES. JOIRS. DOLAR.-I 

9022 PRINT *898 , "POUPflNCA , INVEST IMENTOS. ate* I 

9023 PRINT • CP-F .0*1* (0) 1 1 GOTO 1030 

9091 PRINT *839, -Local ofxla s baa a*ta‘ aatabalacldo ou onda fol adaulrido, " I 

9093 PRINT « CP-F,CHR*(0)|I GOTO 1030 

*061 PRINT *839, -Quant idada do baa aapaci ♦ lco. * I 

9063 PRINT * CP-F,CHR*10) I l GOTO 1030 

9081 PRINT *839, -valor da uaa unmada do baa aapaci «lco. - 1 

9083 PRINT « CP>F,CHR*(0) I ■ GOTO 1030 

9101 PRINT *839, 'Boot acoa* ou obaarvacoaa «ananca*,*l 

9103 PRINT « CP*F,CHR»(0) I l GOTO 1030 

9999 RETURN 'REPORTS MODULE BELOW 

3000 NR-1 i FG*- - 8ENS/RPT " i RM* ( 10 ) -"RETURN TO MASTER MENU- 

3001 RM* ( 1 ) - - CBDBSTRO DE BENS" 

3009 REM 

3010 FORX-OTOSOl T*( X )—0 INEXTX I PR INT«998,CHR*( 31 ) I lPRINT*999 .STRING* ( 29 , 193 ) I - RE 
PORTS MENU " I STRING*! 29 , 193 ) ■ FORX-lTOSl PRINT*312* ( 69. ( X-l ) ) , - ( -.RIGHT* ( STR* ( X ) ,L 
EN(8TR*!X))-1)»-) " *RM« 1 X ) 

soil PR INT *3*9- (69*(X-1)),"( --RIGHT* ( STR*( X-3) . 1 >*" ) "-RMtlX-S) INEXTX 

3013 PR I NT *833, STRING* ( 62, 193) IPRINT*896. "PRESS NUMBER BY MENU CHOICE <7)-|l 

GOSUB 1327 

3020 Y-VBLIB* I 1RN-YI IFY( 10RYINRTHEN1320 

3023 PRINT«998 , CHR* l 31 ) I "••• STANDBY FOR DISK ACCESS •••"! 

3030 ON Y GOTO 3031 

3031 L*— "• IN*-*- IPW— 69 IPL-66 1 PS*-" " IPA*— “ - IQ1-0IG2-0 IL1-0IL2— OIL3-0 IL9-0 1 SG-1 1 EG 
-O I GOTO 3090 

3039 RETURN 

3090 I FG I -OORG2-0 THEN3000ELSE I FL ’ Y - ORL 1 -0THENG0SUB309 1 iPR INT*998 ,CHR* ( 31 ) I IGOS 
UB3600 ■ GOTO3960ELSE3O3O 

30*1 OPEN-R- , 1 . FG* , 23 1 FIELD1 , 2BSG1*. 2ASG2* , 20ASG3* , 1ASG9* 

3092 FORX-SGTOEGl Y-X-SG-1 IGET 1 , X lG( Y) -CVI (Gl* ) lGB( Y >-CVI (G2« ) i G* < Y > -LEFT • ( Q3* , IN 

STR(83*»- " , - — ) — 1 ) !GT»( Y ) -G9* INEXTX l CLOSE 

3093 IFLEFT»( RMKRN) ,3) -“ LABEL " THENG0SUB3360 

30*3 PRINT*998,CHR*( 31)1 IPRINT*9*8, "" I l PR INT -MIT (ENTER) WHEN PRINTER IS READY 0 
R (•) TO ABORT REPORT - 

3096 GOSUB3070 1 1 FB* -0*>* ( 6* ) THEN 1 320EL8E I FB* ( >0«* ( 13 ) THEN3096 

3097 X-l 

3098 XX-INSTR ( X ,P8* ,*I")IIFXX( )OTHENZ-VAL (MID* (PS*. X , XX-X ) ) ILPRINTCHR*! 2) 1 1 X-XX- 
It GOT 03098 

3099 2-VAL (MID* ( PS*, X .LEN1PS* l-X-1 ) ) ILPRINTCHR*(Z) I IRETURN 

3030 FR*— LEFT*! FG* ,LEN( FG*) -1 )-MID*( -123936789" ,RN, 1 ) l OPEN-R- , 2 . FR* . 13l FIELD2, 9B 
SR1*,9ASR2* 

3033 8ET2, 1 iRZ-VBL (R2* ) i CLOSE ■ IFR2-0THEN3060 

303* PR INT8998, CHR* ( 31 ) I SORTED INDEX FOR THIS REPORT IS ALREADY ON DISKETTE 



IF DATA FILE IS UNCHANGED FROM LAST TIME REPORT HAS MADE THEN B 
NEW SORT IS NOT NECESSARY 
DO YOU WISH TO SORT’ (Y/N)-| 

3033 GOSUB 30701 IFB»--V-THENSO60ELSEIFB*--N-THENGOSU 83091 IGOT03939ELSE3039 

3060 PR INT*998, CHR* ( 31 ) I > QOSUB3600 1 (30T03070 

3061 Z-l IRETURN 'NO RESTRICTION 

3069 RETURN 

3070 G0SUB160I FIELD1 , (RC-1 )BSRC», 1BSFL* 

3072 OPEN-R', 2, 'REPORTS/DAT-, 13 ■ FIELDZ.13ASR3* ILSETR3*-FR*IPUT2. 1 l LBETR3*-F2*lPl 
T2 , 2 i F I ELD2 . 9ASR 1 * . 9ASR2* 

3073 R2-3IX7*-- -IG0SUBZ330 

3079 r0RX-lT089-l IRSETX7*-STR*(89-X)IPRINT«EM, -COUNTDOWN— )- |X7*I IGET1 , X l 2-0* IFF 
L*( ) - • " TWEN30B9 

3073 GOSUB 120 

3080 ON RN GOSUB 3061 

3081 I F2- 1 THENGOSUB 1990 

3089 FIELD1 , (RC-1 )BSRC* , 1 ASFL* l IF2( )1THEN3089 

3083 IFN*--N-THEW-VBLIMID*(RC*.L2,L1)) IB0SUB3100ILSETR1*-HB*ILSETR2*-STR*(X>I( 
OT 03068 

3087 IFL3-0THENLSETR1*— MID* (RC* ,L2,L1 ) I L8ETR2«-STR* ( X ) ELSELSETR16-M1D* (RC*,L2,L1 
)*MID« 1 RC* ,L9 ,L3) I LSETR2*-STR* ( X ) 

3088 PUT2 , R2 l R2-R2* 1 

3089 NEXTX 1 1 FR2-3THENG0SUB91 iCLOSE'PRINTf 998,CHR*( 31 ) I "NO RECORDS PASSED RESTRIC 
TIONS, PRESS (ENTER) TO CONTINUE' l GOSUB 3O7OIGOT0 3000ELSELSETR1»--000000000" IL 
SETR2»--0000- IPUT2.R2 

3090 CLOSE IRUN-PRO/SRT- 

3099 REM CONVERT NUMERIC DATA TO ALPHA rOR SORT 

3100 IFBBSIW' ) ) -1 THEN I FW ' )0THENW1*-"D-ELSEW1*-"B-ELSEIFW' )0THENW1*--C-ELSEW1*-"B 

3102 W*-STR* ( W 1 ) IHW»-STR»(M'/1E8) l MB-INSTR ( W* , “E" ) i BW-INSTR ( WW* . "E" ) l IFWB ( 10THEN 
W2*-RIGMT*(W*,2>ELSEW2*--0--RIGHT*(STR*(V«L(MID»(WH*,BW»l,3) )*8) ,1 ) 

310* IFWl*— -fl"ORWl»-"C- THE)*42*-RIGHT*( STR* (99-VAL (W2» ) ) .2) 

3106 IFWBl TOTHENIFINSTR ( W* ,-.-)( )0TH£NW3*— MID* ( W* ,2,1) —MID* ( W* , 9 , WB— 9 ) ELSEW3*— MI 
D* ( W« ,2, 1 1 ELSE IFINSTR ( WW* ,".")( )0THENW3»-MID* ( WW* ,2, 1 ) -MID* ( WW* , 9 , 8W-9 )ELSEW3*-M 

I D* ( ww* , 2 , 1 ) 

3108 IFWl*--B-0RWl»--8-THEW«»-RIGHT»(STR*<999999-VflL!W3*> > ,6) 

3110 WB*-W1*-W2*-W3* (RETURN 

3233 REM 

3260 REM ••• SUBROUTINES FOR PRINTING REPORT 
3263 ONE REC PER LINE 

3270 PE-3IF0RX-1T061 !LPRINTTBB(8A( X ) ) | C* ( 0 ( X > ) I 

3271 IFGT*(X)-'Y*THENT*(X)-T*(X)-VAL(C*(8(X))> LT*(0)— 1 

3272 NEXTX IRETURN 

3273 'MULT LINES 

3280 PE-3ILPRINTSTRIN6*(PW,92HLI— LI-1 IF0RX-1T061IGT-LEN(G*( X) ) -LEN ( C*( 6( X ) 1 >-3- 
6T l IF8T )PWTHENLPRINT iGT-LEN ( G*( X ) )-LEN(C*(G( X) 1 > -31LI-LI-1 lPE-PE-1 
3283 LPRINTG*(X)I I IFLEN ( G» ( X ) ) lOTHENLPRINT"-) - | 

3290 LPRINTC*(6( X ) ) I “ 
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3291 IFGT*<X)»-Y-THENT*(X>-T*<X>*VALIC*lG(X> I UTIIOI- 1 
3293 NEXTX IRETURN 

3299 ’PUT TOTBLS INTO PRINTOUT FOP NOT AND PRINT 

3300 IFT*<0>THENF0RX-1T0G1HFGT*<X>--Y-THENC»(G(X) l-RIGHTK STR*( T* ( X ) ).LEN(STR»( 
T*(X) ) )-l ) ELSEC* (G< X ) )•" "ELSE3303 

3301 NEXTX 

33i52 LI-LI*4ILPRINTSTRING*(PW.43> ILPRINT "TOTALS" ILPRINTSTRINGXPN, 43 > l IFG2- 1 ( -PU 
THENGOSUB5270ELSEGOSUB3280 

3303 LPRINTIF0RX-LI*2T0PLILPRINT,- -INEXTX 
5304 RETURN 

3438 REM ••• PRINT REPORT KEYED BY SORT FILE 

3439 P-llPRINT«O,--(iGOSUB233OlR-llGOSu816OiGOSU81Z0lOPEN-P-,2,FR*.l3lFIEL02.9PS 
DU*.4ASR1* 

3440 LI-OHFLEFT*(RM*(RN) ,3>< )"LABEL"TH£NLPRlNT"PEPOPT *-|RNI". - IRM* i RN . I TUB (PU 
-7)|-F.-|PlLI-LI*llIF6Z-l<-PWTMENLPRINTSTRIN6*(PW,42)ir0RX-lT0GlILPPINTTAB(GA(X) 
>|G*(X)|INEXTX1LPPINT1LPRINTSTRING*<PU,42)ILI-Ll*3 

3443 SET2 ,R 1 R 1 -VOL ( R1 » > 1 1 FR 1 -0THENG0SUB3300 1 CLOSE > G0T03320ELSEGET 1 , R 1 1 GOSUBI 440 
3443 GT-OlIFLEFT»<RN*(RN>.3l-"LABE.-"THENGOSUBS340ELSEirG2-l(-PWTMEN6OSUBS270ELSE 
0O8UB329O 

3446 LPRINT ILI— LI*1 

3447 IFINKEY*--«"THENCL0SEiG0T03320ELSER-R*llIFLI*2>PL-PE0RLEFT*<RH»<RN).3>-"LAB 

EL-THENFORX-LITOPL-1 1LPRINT ,-* INEXTX lP-P*l IGOT03440ELSE3443 
5430 REN 

3433 REM ••• PRINT REPORT KEYED BY TROV 
3460 P-llPRINTtO.--|lGOSU82330 

5470 GOSUBI 60 1 27-23 1 26-0 1X6-0 'SOVE ROOT AND NULL ARRAY SAVE COUNTER ...-BTR 

EE—— 

3473 LI-Ol IFLEFT*( RM*( RN) .3) < > "LABEL "THENLPRI NT “REPORT *->RN|-. " |PM*(RN) ITABIPW 
-7> I "p--|PILI-Ll*ll IFG2-K-PWTHENL PRINTSTRING* (PU. 42) l rORX-lTOGIlLPRINTTABIGA<X> 

) IG»1 X ) I INEXTX ILPRINT ILPRINT6TRINGK PH, 42) ILI-LI-3 

3476 26-26* 1 l B8 (26 )-Z7i IF27 C 10THEN23-27 1 GOSUBI 901 Z7-B3 160T03476' BEGIN BTREE FILE 
TRAVERSAL •••BTREE*** 

3480 Z6-26-1 1 IF26-0THENG0SUB3300) CLOSE IGOT03520 * CHECK TO SEE IF k—OLE TREE MAS B 
EEN TRAVERSED 

3483 27-88(26) *23-27 l GOSUBI 90 *GOSUB1440 'DISPLAY A RECORD 

3489 GT-0 1 2-0 

3490 ON RN GOSUB 3061 

3492 IF2< 11THEN3510 

3493 IFL£FT*<RM»(RN> , 3 ) • “LABEL " T HENG0SUB3340ELSE I FG2* 1 < -PWTHENGOSUB3270ELSEGOSU8 
3280 

3303 LPRINT *LI-LI*1 

3310 lFINKEY*--«-TMENCL0SEtG0T03320 ESCAPE FROM TRAVERSE 

3313 26-26" 1 1Z7-B4I IFLI*2)PL-PE0R(LErT* (RM* (RN) ,3 ) -"LABEL" ANDZ-1 ) THENFORYY-LITOP 
L-l ILPRINT i “ ■ INEXTYY lP-P*l IG0T03473ELSE3476 'GO GET ANOTHER RECORD 

••♦BTREE*** 

3320 80SUB3S30ICLSIGOT01520 

3330 X-l 

3331 XX-INSTR(X,PA*,-I"> IIFXX( )0THEN2-VAl ( MID* ( PA*. X , XX-X ) ) ILPRINTCK#)*(Z) I II-XX* 
1 1 GOT 0353 1 

3332 Z-VAL 1MID*(PA* * X .LEN(PA* )-X*l ) ) ILPRINTCHR»(2) sRETURN 

3340 FORX-1 T0G1 ILPRINTG*! X ) I l IFLEN( Gt ( X ) I 10TMENLPRINT-- ) - t 

3341 LPRINTC* ( G( X ) ) I " "I HFGT»(X*1)--Y-ANDX( IGITHENLPRINT . 1LI-LI- 
3343 NEXTX IRETURN 

3360 PRINT«312.CHR*(31) I -LABELS ARE SET FOR -|PLI" LINES- 
<»> RESET * OF LINES 
<2> TEST LABEL ALL I8NHENT 
(3) PRINT LABELS 
ENTER YOUR SELECTION— )• I 

3370 GOSUB3070 ■ 1 •- A* ■ 1 1 F I • - " TMEN3370ELSE I F I *- - 1 - TMEN3375ELSE I F I * - - 2" TMEN3380ELS 



SEJA NOSSO COLABORADOR 
E ENTRE PARA A HISTORIA . . . 
...de MICRO SISTEAAAS, 6 claro! 



Como? £: simples: 

• Se voce desenvolveu um 
programa interessante, escreva 
um texto datilografado expli- 
cando qual a sua utilizagSo e 
junte exemplos de aplicagSo. 
Aten<p5o: 6 imprescindfvel que 
a listagem seja datilografada. 
Se for possfvel mande tam- 
Wm, junto com a listagem 
datilografada, uma fita cassete 
ou disquete com o programa. 

• Se for artigo, use tamWm 
a miquina de escrever e, caso 
haja necessidade de desenhos e 
ilustra^Qes, detalhe-os o m^- 
ximo possfvel. 



• Releia atentamente sua co- 
laboragSo para micros ou cal- 
culadora, veja se n£o falta ne- 
nhuma informaptfo (qual equi- 
pamento, em que configurated 
etc.) e remeta-a, em duas vias, 
para a equipe de MICRO SIS- 
TEMAS analisar. 

• Se aprovado, seu artigo ou 
programa ser3 publicado em 
data a ser confirmada na gpo- 
ca. Todo material veiculado 6 
remunerado. Caso n5o seja 
aprovado, vocfi receberg seu 
material de volta. 

o N5o se esquepa de mandar 
um breve currfculo, seu nome, 
telefone e enderepo completo. 



/Micro 



Eiri*»-3-TMENRETURNELSE3370 

3375 PRINT«31Z.CHR*(3) >l"HOU MANY LINES ARE THERE FROM THE TOP OF ONE LABEL 
TO THE NEXT “ ) : INPUTPL IG0T0356O 

3380 LPRINTSTRING* ' PH- 1.42) 1 1F0RI-1T0PL ILPRINT. --INEXTX IG0T05560 

5600 ON RN GOTO 3601 

5601 RETURN 
3999 RETURN 

6003 ON PF GOTO 6003 . 6003 . 6003 . 6040 . 6003 
6003 RETURN 

6040 C1D-VAL ( A* ' 3 ) ) • VAL I A*( 4) ) IPU*-- .00"lGOSUB6SO0!PRINT«433,PU»l !A*(6 

)-PU» 

6049 PRINT €EM.E9*| I RETURN 

6600 RE-OICA-OIGOSUB41 IPR1NT«4-8,CK*'»( 31 > l"DO YOU MISM TO REPLACE THE CONTENTS 0 
T A CHOSEN FIELD' (Y/N/OI "I 

660*3 GOSUB3070iPE*-A»iIFRE»--N-THEN6620ELSEIFRE*( * "Y" ANDRE* ( )"0-THEN66o5ELSEirRE 
».-Y-THENCLSiG0SUB2330lPRINTtEM, -REPLACE HHAT TIELD •" I l INPUTRF l IF (RF-O)OR > RF-K F 
) OR I RF 1 NF*DS l THEN6600ELSEPRINT 
6606 IFRE»*-Q'TMENRETURN 

6610 CLS I PR I NT “ YOU HAVE SELECTED FIELD •"(RF)-. WHEN THE SCREEN APPEARS ENTER" IP 
RINT-THE DATA YOU WISH TO REPLACE IN THE CHOSEN FIELD- " IPRINT "PRESS (ENTER) TO C 
ONTINUE" I 

6613 GOSUB3O701RE»-A* ICLSIQ0SUB2330 IPF-PFlSF-RFi EF-Rri GOSUBI 140lRr»-A*(Rr)lPE--l 

6620 G0SU841 l PR INTB448 .CHR* ( 31 > I "SHOULD ALL CALCULATIONS BE PERF0RMED7 (Y/N) - ) 
6623 G0SUB3070lBr»-A*lIFRE*-"N-THEN6627ELSEIFRE*< )"Y"TMEN6623ELSECA--l 

6627 PRINT«448,CHP»(3l)l"D0 YOU MISH TO USE A RESTRICTION' IV/N/QI "I 

6628 GOSUB3O7O:PR»-O»lIFRR«--N-TMEN663OELSEIFRR»-"0-THENPETURNELSEIFRR*<)-Y-THEN 
6628 

6629 RR- - 1 1 GOSUB9073 1 RR-0 

6630 CLS 1G0SUB2330 1 GOSUB 160 1 GOSUB 1201 F0RF-2T0B9- 1 16ET1 , F iF0RY-1T0NF*D3i A* t Y ) -C* ( 

V > INEXTY l IFFL*( )"• "TMEN6643EL5EG0SUB 14401 PR INTBEM, "PRESS « TO ABORT— - SB9-ri I IFI 
NKEY»--»- THE NRE TURN 

6632 IFRR*--V"THENFO»-lEFT*iC*(80>.LT)iTV*-VAL(C*( 00) ) lONI IG0SUB1 lO. 1 1 1 . 1 12. 1 13. 
114,113.1161 irF0TMEN6633ELSE6643 

6633 IFRETHENA* ( PF ) -RF* i PRINTED (RF ,2) .A* ( RF ) -STRING* ( D( RF , 1 ) -LENI RF* ) , 32) ) 

6636 I FCATHENFORPF -S3T0S4 1 G0SUB6O03 1 NE X TPF 

6640 F0RY-1T0NF *DSlLSETC*( Y ) -A«( Y) INEXTYIPUT1 ,F 
6643 NEXTFICL0SEIG0SUB1360IRETURN 

6799 RETURN 

6800 rx*-STR* ( ABS(C1* ) ) I IFINSTR ( FX* , " • " )-OTMENFX*-FX«*" . OOOOOOOO" 

6801 I FC 1 • ( O THENFS*- " - " EL SEFS*- " * 

6802 IF(INSTR(FX*,"E")<)0 OR INSTRTFX* • "D" ) < >0 1 ANDABS(C1* ) l 1 THENFX»-STR» I ABSI Cl 
•)*1> lFX*-LEFT*(rX*.l)»RIGHT*(FX*,LEN(rX*l-2) 

6810 PU— INSTR ( PU* . - - " ) I IFPU-OTHENRSETPU*-STR* ( INT ( ABS (Cl* > ) ) IMID* ( PU* . 1 . 1 ) -FS*IR 
ETURNELSEFX-LEN( FX* ) irZ-INSTP( FX*. " . * ) * FY-PU-FZ*1 IMID*( PU*.FY , FX ) -Fx* IMI D»( PU* . 1 
,1)-FS*I RETURN 
6820 RETURN 

6900 ER*-STR»(ERL)*-/"-STR*(ERR/2*l) ERROR PARAMETER 

6902 IFERR-20THENPRINT«EM.E9»I "DIVISION BY ZERO 

6903 IFERL-6810THE)^RINTBEM, E9* t "RESULT TOO LARGE 
820 

6906 CLOSE 

6907 IFER*-" 160/ 63-THENPRINTt312.CHR*( 31 ) I "BAD FILE NAME-PRESS ENTER" 1 IG0SUB30 
70) CLOSE l PUN 

6909 IFBOTMENCLSlPRINT-DOS ERROR IN BATCH MODE - - BB-" IBB I " STATUS-" I ER» IPRINT -SEE 
SECTION 14.9.4 IN PRODUCER (TM) MANUAL OR SECTION 2-9.4 IN" IPRINT-FINISMED PROG 
RAM MANUAL FOR RECOVERY" i END 

6911 IFERR/Z*1-62THENPRINT«EN,E9*I"DISK FULL-— PRESS ENTER - ) IG0SUB3070I IFBOTH 
EN6909ELSERESUHE 1 520 

6930 PRINTBEM, E9* I "UNKNOWN ERROR-PRESS ENTER" I IG0SUB3070IPRINTBCP . " - I (RESUME 1520 
7000 PRINTB448 * CHR*( 31 ) 1 l PRINT "THE END" I END 

7999 ’STATUS DISPLAY 

8000 PRINT* 480.CHR* ( 191 ) (STRING* (8. 131 ) I - FILE STATUS " I STRING* (8. 131)1 IPRINTB34 

4 ,CHR* ( 191 ) I " LOST RECORD ACCESSED- >" 1 TNSXZO ) I IPRINT«6»8 .CHR* ( 191 ) I - * ACTIVE R 

ECORDS ) - I FNS* ( B6 ) 1 

8010 PRINT «672.CHR*( 191 ) I * • DELETED SLOTS OPEN- ) " I FNS* ( B9-B6-2 ) I lPRINTt736.CHR* 

<191)1- FILENAME )-|FZ*|lPRINT«800.CMR*(191>|- ERROR STATUS—) -|ER*HPPINT 

•864, STRING* (30. 131) I 

8020 F0RU3-310T0832STEP64lpRINT«U3.CHR*( 191 ) 1 INEXTU3lPRINT»894,CHR*( 131 ) I IRETURN 
9000 G0SUB41 IPRINTB448. - - ICHR* ( 191 ) (STRING* ( 7 . 131 ) I " OPTIONS MENU " ISTRING* (6. 1 
31) I CHR* (191) 

9010 PRINT" " |CHR*( 191 ) |- <1) (D)ELETE A RECORD -(CHR»(19l) 

9020 PRINT" -|CX>*(191)(- <2) (S)EARCH FOP ANY KEY "ICHR*(191> 

9030 PRINT- - |CHR*( 191 ) I - (3) (R)EPLACE A FIELD " (CHR* ( 191 ) 

9040 PRINT" -1CMP*( 191 ) t- (4) (B)ATCH ADDITION MODE ")CMP*1191) 

9030 PRINT- - (CHR* ( 191 ) 1 * (3) (E)XIT TO MAIN MENU ")CHR»(191> 

9060 PRINT" - ISTRING* ( 29, 131 ) i GOSUB 8 OOO 1 PR INT IPRINT -PRESS NUMBER BY MENU CHOICE 
(7) - 1 1G0SUB1327 12— VAL ( A* ) I IFINSTR ( SC* , A* ) 10THEN2- INSTR ( SC* * A* I ELSEIF2( 10RZI5 
THEN9000 

9070 GOSUB 1360 i IFZ-ITHENPRINTBO, " " I i G0SUB23301 PR INT8EH, E9» I "ENTER RECORD TO DELE 
TE"I iG0SUB1720lir(F0AND(S*--Y-0RS*--") > TMENA* ( KF) -"DELETE" i GOSUB 1873) G0T01320ELS 
E1S20 

9073 IF2-2TMENI G0SUB9O73 i CLOSE 1GOT01320ELSEIF2-3THENGOSUB6600 l G0T01320ELSE I F2-4T 
MEN9390ELSEIF2-3TMEN1520 

9073 CLS l G0SUB2330 I PR I NT*EM , E9* I " SE ARCM-r I ELD • ( «-ENO I " I ■ INPUTOQ»lQO-VAL (00* I U 
FDD*- "•"THENRETURNELSE I FOQ( 10R00KNF ♦DSTHENCLSiG0SUB2330iPRINT»EM , E9* I "FIELD • OU 
T OF RANGE -ENTER" I IGOSUB30701QOT09073ELSECLS iGOSUB9083iGOSUB103i I I-VAL < I* > 

9077 irl»-”«-TMENRETURNELSEIFII(10RII)7THEN9073ELSECLSlGOSUB2330lPRlNT«EM.E9*|-E 
NTEP SEARCH KEY" I lPF-00 l EF-OOlSF-OOi A*-" - IG0SUB1 1401 TA*-A* ( 00 > l IFTA*-" "TMENRETUR 
NELSELT-LEN1TA*) 1 ITII )4THENTA*-VAL ( TA* ) 

9078 I FRRTMENRETURNELSE CLS I PRINT "SEARCH FROMi (1) START OF FILE (2) END OF FILE 
"I 160SUB30701 10- VALIA*) l IFIO( 10RIO )2THEN9O78ELSEIFI0-lTHENHl-2iH2-B9 1H3-1ELSEH1- 
B91H2-2IH3— 1 

9079 CLSlGOSUB23301GOSUB1601G0SUB120lF0RX2-HlT0H2STEPM3lPRINTtEM. -PRESS • TO ABO 

PT )"lB9-X2(IGETl,X2l IFFL»---"THEN9O83ELSEF0»-LEFT*(C» I 00) ,LT I 1 TV*-VAL( C*( 0 

0))HFINKEY*-"«-TMENGOSUB 3O6.5lRETURNELSE0NIIG0SUB110.nl, 112. 113. 114. 113. 116 
9081 IFFOTMEN60SUB1440I 23-X2 IG0SUB1S00 l IFS*-"Y"THENPRINT*EM ,E9* I -RECORD *"IXZ)"- 
PRESS (ENTER)"! 1GOSUB30701PETURN 
9083 NEXTX2 IRETURN 

9.583 PRINTTABI 19) I "SEARCH A FIELD MENU" iPRINTCHR* 1 209 ) I IPRINT - ( 1 ) EOUAl TO 

■“ IPRINT" (2> GREATER THAN | SEARCH FOP A STPING FPOM LEFT OF FIELD"lPRINT- 
(3) LESS THAN J- IPRINT 

9087 PPINT-14) SEARCH FROM ANY PLACE IN FIELD" IPRINTCHR* (209) I " " IPRINT" (3) EOU 

AL TO (• IPRINT-I6) GREATER THAN I SEARCH rOR NUMERIC VAL OP" IPRINT- <7 ) LES 

5 THAN J- IPRINT IPRINT-PPESS THE NUMBER BESIDE YOUR SELECTION- 

9089 RETUPfT 

9200 I FLEFT * ( A* ( KF ) , 1 ) < ) " "THENPRINT«EM. E9» I - (R ) EPLACE . (N)EU KEY. (E )ND"i IG0SUB30 
70IIFO*--P-THEHPETURNELSEIFA*-"N"TMENTO*.0»(KF) IT2*-A*IK2) IGOSUBI630IGOT01320ELS 
E I FA*-" E - THENGOSUB I 360 i GQT01320ELSE9200 

9210 PRINT«EM,E9*i"BAD KEY PRESS (ENTER )" IG0SUB1 3601 GOT01320 

9300 IF23-0THENPPINT«512.O*'*131)|-*** FILE NOT INITIALIZED ••• 

PRESS (ENTER) TO INITIALIZE OP * TO ABORT ) " I F2* l INPUT I* l IFI •■"•“THENCLOSE IKIL 

LFZ* iRUNE(-SEZ3-2l B6-0IB7-OIB9-2I BD-0IG0SUB260IPUT 1,1 1 RE TURNELSERE TURN 
9390 PRINT«960, "BATCH MODE DESIRED ( Y/N )— I l GOSUB 1 03 i IFI*-" Y" THENB0--1 *2-1 I60T01 
543ELSEIFI*) CN-THEN9390 ELSE 1520 
9400 IF BB-0THENG0SUB9403 

9402 PRINT»EM.E9*l-*** UR I TING- -BATCH MODE •••" I iBB-BB* 1 (GOSUBI 20 IGOSUB2301LSETB 
1 * —Ml 1*1 BB I ILSETB2R-MK I»(0) IPUTI .BBlGETl , 1 ILSETB2*-MKI»( BB) IPUT1 , 1 IRETURN WRIT 
E BATCH RECORD 

9403 IFPC-256THEN0PEN-P- . 1 , "BATCM/DAT - lPETUPNELSEOPEN"P" , 1 , "BATCH/DAT" , PC I RETURN 
9300 I rBB-OTHENCLOSE i PE TUPNELSEFOR F* 1 TDBB 1 30SUB9403 1 GOSUB 1 20 1 GET 1 , F 1 CLOSE 1 FOPH- 1 
TONr-DS!A»'H)-C*(H) !NEXTH!G0SU81440!TQ«.At (KFI lT2»-A*(K2) 1 GOSUBI 6 SO 1 NEXTFi CLOSE i 
BO-0 I BB-0 IRETURN 



Envie para REDAQAO/MICRO SISTEMAS, Rio ou Sao 
Paulo: Av. Presidente Wilson, 165/grupo 1210, Centro, CEP 
20030, Rio de Janeiro, RJ; Rua Oliveira Dias, 153, Jardim 
Paulista, CEP 01433, Sao Paulo, SP. 
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Suprimento e coisa seria 
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Com a Centraldata 
a entrega e imediata 



Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 

• Discos Magn6ticos: 5 Mb, 16 Mb, 80 Mb, etc. 

• Fita MagnOtica: 600, 1200 e 2400 P6s 

• Fita CARBOFITAS p/lmpressoras: Globus 
M 200 — B 300/600 

• Fita p/lmpressoras: Elebra, Elgin, Epson, 
Digilab, Diablo, etc. 

• Cartucho Cobra 400 



Com e Represenlacoes Lida 



DISKETES: 5 1/4 e 8” • marca 
VERBATIM 

ETIQUETAS PIMACO — PIMATAB 
PASTAS E FORMULARIOS CONTlNUOS 



AV. PRESIDENTE VARGAS N.° 482 GR 207 TEL. (021) 253-1120 E 263-5876 



Neste jogo, para os micros Sinclair, voci estara cercado por todos os /ados, 
basta um passo em fatso e pronto... um ponto a favor do adversario 



Num bloqueio 
sem saida! 

Roberto Tannenbaum 



B loqueio e para ser jogado por duas pessoas, onde cada 
uma delas ira controlar um quadrado no video. Os 
quadrados podem se mover para a direita ou esquerda, 
para cima ou para baixo, deixando uma trilha por on- 
de passam. 0 que cada jogador deve fazer 6 evitar que seu qua- 
drado se choque contra qualquer obstdculo, seja ele a prdpria 
trilha, a do adversario, ou ainda as paredes que cercam o video. 

Se o quadrado de um dos jogadores colidir, o adversario 
marcara um ponto. Ao final, vence aquele que chegar primeiro 
a dez pontos. 

Bloqueio pode ser jogado na modalidade NORMAL, na qual 
os quadrados tern velocidade constante ou ACELERADO, com 
velocidade crescente. A figura 1 demonstra como cada jogador 
deve controlar o seu quadrado. 

0 PROGRAMA 

Para carregar o micro, em linguagem de mdquina, deve-se 
utilizar o MICRO BUG (MS nPs 31, 32 e 33). Os comandos 
do MICRO BUG sao SHIFT E, > E 1.B4.1 e > M SI 6520. 

A partir dai, cria-se a linha 1 REM (178) ..., esta linha deve 

conter, no mi'nimo, 178 caracteres quaisquer. Com o MICRO 
BUG ou utilizando o modo A do monitor Assembler (MS, nP 
23), entre com os codigos da listagem 1 . Nessa altura, 6 bom 
verificar se nada foi digitado errado. Entre com o programa da 
listagem 2 e, entao, grave o programa em fita. 

O funcionamento do programa consiste, primeiro, na leitura 
do teclado para serem calculadas as novas posi95es. Se nSo 
houver colisao, os quadrados sao desenhados e reinicia-se a 
opera^ao. Ao contrdrio, se houver colisao, o programa retorna 
ao BASIC para somar um ponto ao placar e reinicia-se a opera- 
950. 

Para verificar quais as teclas pressionadas 6 chamada a sub- 
rotina KSCAN (endere?© 699) e depois testa-se cada bit do re- 
gistrador L. A sub-rotina FINDCHR (endere90 1981) nao 6 
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Movimento 


Jogador 1 


Jogador 2 


subir 


teclas 1-5 


teclas 6-0 


descer 


teclas Q-T 


teclas Y-P 


direita 


teclas A-G 


teclas H-L 


esquerda 


teclas Z-V 


teclas B- . 



Figura 1 



58 



MICRO SISTEMAS, agosto/84 






Bloqueio 



10 


LET C1=0 


200 


PRINT AT 11,9; "B" ; AT 11,21; 


20 


LET C2 =0 




30 


LET K =0 


210 


SLOW 


4-0 


PRINT 1 . NORMAL " , ,"2. ACELER 


220 


IF INKEY$=" " THEN GOTO 220 


ADO" 




230 


PRINT AT 11,9;” " ; AT 11,21: 


50 


IP IN KEY $ = " " THEN GOTO 50 


ii ii 


60 


LET K =C0DE INKEY $-29 


240 


RAND USR 16520 


70 


FAST 


250 


IF PEEK 16513 THEN LET 02=0 


SO 


POKE 16413,0 


2 + 1 




90 


POKE 16669 . 3 


260 


IF PEEK 16519 THEN LET 01=0 


100 


POKE 16691,24 AND K 


1 + 1 




110 


POKE 16513,0 


270 


PRINT AT 2,2:01.02 


120 


POKE 16519,0 


280 


IF 01 >9 OR 02 >9 THEN GOTO 3 


130 


CL 5 


10 




140 


FOR F =0 TO 31 


290 


IF INKEY $ = “ " THEN GOTO 290 


150 


PRINT AT 0,F ;*■■■•; AT 23,F;*'l 


300 


GOTO 70 


" 




310 


CL o 


160 


NEXT F 


320 


PRINT AT 9,9: " F IM DE JOGO" 


170 


FOR F = 1 TO 22 


330 


IF INKEY $="" THEN GOTO 330 


130 


PRINT AT F,0; "I"; AT F,31;“l 


340 


0LS 


“ 




350 


RUN 


190 


NEXT F 







chamada, pois ela nfo permite veriflcar se duas ou mais teclas 
estSo sendo pressionadas simultaneamente, o que 6 imprescin- 
dfvel neste jogo. 

0 enderego 16669 contdm o tamanho da pausa que contro- 
la a velocidade do jogo. Na modalidade ACELERADO, o tama- 
nho da pausa 6 diminuido pelo proprio programa, desta for- 
ma, o jogo fica cada vez mais ripiao. Na modalidade NORMAL, 



a pausa 6 constante . Querendo-se diminuir a velocidade do jo- 
go, basta alterar a linha 90 do programa, substituindo o 8 por 
um numero maior. 

Agora, s6 resta pressionar RUN e jogar. 

Roberto Tannenbaum 4 estudante da Engenharia na Escola PolitScnica 
da USP e tem por hobby a programagio da calculadoras a micros. 



/Micro 



Assinale com um x a sua op<?ao 
ASSINATURAS: 

□ NOVA DRENOVAQAO 

Para novas assinaturas, preencha o cupom anexo. 
Para renovagSo, basta colar a etiqueta que acom- 
panha a sua revista no espago reservado sobre o 
cupom. Em ambos os casos, remeta, juntamente 
com o cupom, e/ou etiqueta um cheque nominal a 
ATI EDITORA LTDA. no valor de Cr$ 25.000,00 
para os nossos escritbrios no Rio de Janeiro ou Sao 
Paulo. 

□ MUDANQA DE ENDEREQO 

Preencha o cupom ao lado com o novo endere- 
go e cole no espago acima a etiqueta que acompa- 
nha a sua revista. Remeta-nos, para os enderegos 
abaixo. 






Anaiise. Teieprocessamento e 
Informal, ca Edilora Uda 



SERVIQO 
AC 1 AS SIN ANTE 



Em caso de mudanga de enderego ou 
renovagao de assinatura, cole aqui, 
etiqueta de enderegamento. 

Nome: 

Enderego: 

Cidade: 

Estado: CEP: 



SAO PAULO - Rua Oliveira Dias, 153, CEP: 01043, Tels.: (011) 853-7758 e 881 -5668 

RIO DE JANEIRO - Av. Pres. Wilson, 165 -Gr. 121 0/1 6, CEP: 20030, Tels.: (021) 262-5259 e 262-6437 









Dentre os "geradores" de programas em BASIC, o Creator, do 
norte-americano Bruce To kin, e opgao acessfve! e comprovadamente satis fatoria 



Creator, lima ferramenta 
de programacao 

Luiz Gonzaga de A/varenga 



A linguagem BASIC, pelo fato de ter-se transformado 
em uma espdcie de linguagem universal para os mi- 
crocomputadores, estando presente em todos eles - 
mesmo que em diferentes versdes ou dialetos — , 
provocou um imenso esforfo de cria9ao de programas para as 
mais variadas aplica9oes. Sao inumeros os programas em lin- 
guagem BASIC hoje existentes, incluindo as versoes comerciais 
e os programas publicados em diferentes revistas especializa- 
das, principalmente nos Estados Unidos da America, onde o 
numero de publica9oes especializadas em computadores e pro- 
grama9§o, dirigidas aos usuarios das diversas maquinas la fabri- 
cadas, atinge a quase duas centenas de diferentes titulos. 

auxiLio para o programador 

Embora a linguagem BASIC seja relativamente fdcil de ser 
aprendida, logo se percebeu que a elabora9ao de sofisticados 
programas & muito mais uma questao de talento e origjnalidade 
pessoais do que uma conseqiiencia do dominio das t^cnicas de 
programa9ao; al£m do conhecimento da linguagem em si. Tan- 
to isto 6 verdade, que alguns dos mais interessantes programas 
em linguagem BASIC incorporam tdcnicas extremamente sofis- 
ticadas criadas pelos seus autores, e que nSo tinham sido pre- 
vistas especificamente para a finalidade na qual foram usadas 
(e o caso, por exemplo, da fun9§o VARJPTR, usada pelo 
“papa” da anima9ao grafica no TRS- 80 , Leo Christ opherson, 
com resultados espetaculares). 

Tendo esse detalhe em vista, alguns programadores mais ex- 
perientes procuraram criar programas que fossem capazes de 
auxiliar na elabora9§o de programas na linguagem BASIC. Es- 
tes procuram mostrar ao usuario as seqiiencias mais comuns de 
procedimento de cria9ao, sugerindo roteiros de processamento 
ou criando comandos, instru9oes, telas, mensagens ou quais- 
quer outros artiffcios normalmente utilizados pelos programa- 
dores veteranos, o que ajuda a eliminar as tarefas mais exaus- 
tivas e acelera o processo de elabora9ao do programa. 

Dentre os programas escritos com este objetivo, os mais co- 
nhecidos sao o QUICKPRO e QUICKPRO PLUS, da Future- 
Soft, e um programa da Software of the Future Inc., o 
PRODUCER, escrito por Roger Smith. Estes programas, escri- 
tos num misto de Basic e Assembly, e vendidos comercial- 
mente pelas respectivas soft-houses sao extremamente sofisti- 



cados e podem ajudar na elabora9§o de programas em lingua- 
gem BASIC para aplica9des diversas (desde que, naturalmente, 
o programador ji possua conhecimentos bdsicos desta lingua- 
gem, bem como domine o assunto ao qual ele pretende apficar 
o programa). 

0 QUICKPRO e o PRODUCER sao talvez inacessiveis a 
maioria dos possuidores de microcomputadores no Brasil, seja 
pela dificuldade em encontrd-los, seja pelo seu elevado pre90. 
Os leitores interessados no tema nffo ficarao, contudo,.frustra- 
dos, pois uma op9ao mais fdcil foi oferecida pela revista norte- 
americana “80 Micro” em sua edi9ao de janeiro de 1983 , quan- 
do publicou um programa, escrito por Bruce Tonkin em lin- 
guagem BASIC, denominado CREATOR (posteriormente, uma 
vers2o mais elaborada foi publicada na edi9So de fevereiro de 
84 ). 

0 CREATOR tambem permite a cria9ao de programas em 
BASIC e presta-se is seguintes aplica95es: controle de estoque; 
contas a pagar; contas a receber; mala direta, bem como outros 
tipos de aplicativos que envolvam arquivos em base de dados. 

ELEGANCIA E FUNCIONALIDADE 

O uso deste programa 6 relativamente fdcil, pois basta res- 
ponder is perguntas que ele vai colocando na tela, a respeito, 
por exemplo, do numero de campos por arquivo; tamanho dos 
registros a criar; ou se a opera95o serd executada com numeros 
em precisao simples ou dupla. As questQes sao conduzidas de 
forma tal que o proprio operador do CREATOR especifica o 
que deseja do programa a ser criado. Existem, evidentemente, 
vdrias limita96es, mas isto nao tira a versatilidade dp programa. 
Dois pontos, contudo, devem ser considerados: o CREATOR 
n2o pode ser utilizado para criar qualquer tipo de programa, 
pois a sua utiliza9So estd limitada aos aplicativos de arquivos 
de dados. Segundo, ele nSo ensina como usar a linguagem 
BASIC, e sim orienta na cria9ao de programas em BASIC; o que 
pressup 5 e que o programador j i deva conhecer os rudimentos 
dessa linguagem. 

Uma das particularidades mais interessantes que o programa 
CREATOR utiliza na criado de outros programas em BASIC 
— que iii, sem duvida, agradar a todos aqueles que se interessam 
por tdcnicas de programa9ao - 6 a sua elegante forma de 
acesso a arquivo, que usa o modo sequencial. Esta tdcnica de 
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acesso a arquivo, cujo aigoritmo utilizado foi criado por Bruce 
Tonkin, permite criar linhas de programa em forma de arquivo 
de dados, sem que. contudo, o arquivo criado seja considerado 
como um programa ilegal. Isto significa que o arquivo que foi 
aberto, segundo as tdcnicas usuais de abertura de arquivo de 
dados — lembre-se que este tipo de arquivo nao pode ser carre- 
gado (LOAD) ou rodado (RUN) - no modo sequential, pelo 
fato de conter numeros de linhas de programas, passa a ser um 
arquivo comum de programa. 0 exemplo abaixo elucidara o 
que foi explanado. 

10 INPUT"NOME DO ARQUIVO A CRIAR" ;DF$ 

20 Q$=CHR$ ( 34 ) 

30 OPEN"0" , 1 , "ARQUIV" 

40 PRINT= 1," 100 CLEAR 3000" 

50 PRINT=1 ,"200 OPEN";Q$;"R";Q$;", 1";QS;DF$;Q$ 
60 PRINT= 1," 300 CLOSE" 

70 CLOSE 

Quando o programa acima e rodado, ele abre um arquivo de 
acesso seqiiencial denominado ARQUIV. Em conduces nor- 
mais, este arquivo criado seria um arquivo de dados, com aces- 
so restrito a forma OPEN/CLOSE, contida no proprio progra- 
ma que serviu para cria-lo. Entretanto, devido \ forma utiliza- 
da para criar o arquivo, se se fizer LOAD “ARQUIV” 
(ENTER) e, em seguida, LIST (ENTER), teremos na tela: 

100 CLEAR 3000 

200 OPEN"R" , 1 , "FOLHAPAG" 

300 CLOSE 

onde, 6 claro, o nome FOLHAPAG deverd ter sido introduzido 
previamente, por atribuigao a varidvel DF$, no programa ante- 
rior (linha 10). 

Esta 6 a t^cnica utilizada pelo programa CREATOR para 
criar programas em linguagem BASIC. Nao 6 necessdrio, como 



se poderia pensar, que as linhas que serao criadas tenham se- 
quencia numeTica crescente, nao podendo, apenas, ter numeros 
identicos. Isto porque o programa criado, ao ser rodado, posi- 
ciona corretamente todas as linhas em seus respectivos lugares, 
o que se poderia ver se fosse tirada uma listagem do mesmo. 

Nas mesmas revistas citadas, juntamente com o programa 
CREATOR, Bruce Tonkin publicou o programa REPORTOR, 
que e complementar ao CREATOR e permite manipular os 
dados do programa a ser criado. As versoes de cada programa, 
no numero de fevereiro de 84, sao bem mais eficientes do que 
as originais, contendo varias rotinas e arquivos de biblioteca 
auxiliar a mais. 

Os programas gerados pelo CREATOR possuem, entre ou- 
tras, as seguintes caracteristicas: 

• acesso as gravagoes do arquivo de dados por meio de chave ; 

• atualizagao de dados em qualquer campo do arquivo; 

• utilizado de campos de tamanho varidvel; 

• utilizagao dinamica de arquivo de dados, o qual cresce em 
fung5o dos dados entrados; 

• utilizagao de 47 campos em cada gravagao, cada um com 
ate 256 bytes; 

• opera95es ldgicas, matematicas ou de strings podem ser rea- 
lizadas e visualizadas, juntamente com os dados; 

• exploragao alfabetica ou numerica de quaisquer campos de 
arquivo de dados; 

• utilizagao otimizada de rotinas. 

O programa CREATOR 6 bastante extenso (300 linhas na 
primeira versao; 229 linhas na segunda, sem contar os arquivos 
auxiliares), e sua digitagao exige paciencia e atengSo. Quern 
quer que se resolva a digitd-lo terd, nffo obstante, o prazer de 
possuir um extraordinario e sofisticado programa, capaz de 
satisfazer aos mais exigentes usuarios, desde € claro, que se re- 
conhe 9 a as limitagOes inerentes ao tipo de programa que po- 
dem ser elaborados com sua ajuda. £ 




llll KSR BI-DIRECIONAL till 

O unico terminal teleimpressor fabricado no Brasil 





OECODfflfl 

SliTIM* 01 AAOCf SSAME HTO Of DADOS E IIUCOMUNIC AC Of S 

MATRIZ: Rio de Janeiro R Republica do Libano, 61 12. u and. 

Tel : (021) 221 4677 Tele* (021) 30187 
FIIIAIS: S. Paulo R. Frei Caneca. 1119 Tel : (01 1) 284 831 1 Telex (01 1) 22191 
Brasilia SCS 02 Bloco Cn.“41 SL. 01 Tel.. (061) 225 1588 Tele* (061) 1750 
Porto Alegre Rua Santa Terezmha. 300 Tel.:(05l)32 3564 Tele* (051) 2144 

Goiania Belo Horizonte Salvador 



Conhepa mais 
detalhes do 
Teleimpressor 
KSR na 



A ISA, Industria de Impressoras S/A, acaba de langar o 
primeiro teleimpressor genuinamente brasileiro. Sua alta 
tecnologia eletronica, prova na pratica sua capacidade 
de trabalho. Imprime por matriz de pontos 9x7, 
permitindo ate 8 copias impressas, com uma 
velocidade de 100 C.P.S. Equipado com 
memoria standard de 2 K caracteres, 
utilizando formulario continuo, 
folhas soltas ou bobina de papel. 

De 64 ate 132 caracteres por 
linha, com interface serial 
RS 232 elo de corrente e 
paralelo. Sua velocidade 
de comunicagao e de 
50 a 9.600 B.P.S. 

8 diferentes 
tipos de 
impressao. 

a 

Lb isa 

INDUSTRIA DE IMPRESSORAS S.A. 

Escritorio: 

R. Prol. Jose Marques da Cruz. 234 
Fabrica 

Rua Centro Alricana. 74 
TelS. (011)240 2442 543 4939 
Tele*: <01 1) 36926IIIM 8R 
Sao Paulo S P. 
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com acentuagao 
em portugues 
&&aa6ei666uug-2§ 
SISTEMA IVANITA* 



No Video e 
na Impressora 



Totalmente compativel com o 
Processador de Texto * JANELA MAG 1C A II 



venha 

conhece-lo 

na 




[computer store J 



Linha Completa de Software para APPLE 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
S3o Paulo • SP • Tel.: (01 1) 852-0799 

(•) O Sistema IVANITA jd 6 compativel com as seguintes impressoras: 

• GRAFIX 80 / 100 • ELEBRA 8010 / 11 / 30 / 31 • CENTRONICS 351 

•ISA EL -8000 • ELGIN LADY 1401 M40L • M4q de escrever OLIVETTI ET 

• M6NICA El 6010 • EPSON MXyRX/FX 80 MOO • M4q de esctevet IBM 96 / 196 



mi«o 
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Microcomputadores com credito direto ou leasing 



TK-2000 Cr$ 939.850 

TK-85 Cr$ 398.850 

CP-200 Cr$ 409.000 

CP-300 •. Cr$ 849.000 

CP-500 Cr$ 2.390.000 

DGT-1000 Cr$ 1.498.000 

GRATIS! 

UM CURSO OE BASIC 
ENTREGA RAPIDA EM TODO BRASIL 



Apiicativos: controle de estoque: contabilidade: lolha de 
pagamento: contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 



Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 



VISITE-NOS OU S0LICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVIQOS LTDA. 

R. Assembleia 10 Gr. 3317 - Ed. Centro Candido Mendes 
Tel.: (0211 252 9420 CEP 20011/RJ. 




CREATOR, UMA FERRAMENTA DE PROGRAMAgAO 



O Creator, 

segundo Bruce Tonkin 



E m janeiro de 1983, a revis- 
ta norte-americana 80 Mi- 
cro, especializadaem micro- 
computadores da linha TRS-80, 
surpreendeu seus leitores com a 
publicagJo do program a-fonte 
de urn famoso software que vi- 
nha sendo vendido no mercado 
por 295 ddlares. O programa era 
o Creator e a iniciativa inedita 
partiu do proprio autor, Bruce 
Tonkin. Num longo artigo es- 
crito para a revista, ele exphcou 
os motivos do seu gesto e ofe- 
receu o disquete com o progra- 
ma. para quern nfo quisesse di- 
gjta-lo, por apenas 10 dolares. 

O Creator e urn programa 
que gera outros programas de 
banco de dados, usando a lin- 
guagem BASIC da Microsoft pa- 
ra equipamentos da linha TRS- 
80, Modelos I ou 111. Suas prin- 
cipals aplicagdes sSo para a gera- 
g£o de programas de mala dire- 
ta, cadastro e contas a pagar e a 
receber, entre outros. Alem dis- 
so, como nem o Creator nem o 
programa gerado sao escritos em 
Assembler, tomasse facil a con- 
verstfo para outras hnhas de 
equipamento. 



foi ter-se associado a pessoas 
que nao entendiam nada de 
computagao, nem de software e 
nSo tinham vontade de aprender. 
Por isso, no artigo para a 80 Mi- 
cro, ele alerta os programado- 
res para, ao produzirem um pro- 
grama-fonte inovador, procura- 
rem um bom advogado e contro- 
larem todo o processo de co- 
mercializagao, garantindo o re- 
cebimento dos royalties. Ele 
alerta os programadores tambem 
para a figura do distribuidor, 
que 6 quern efetivamente comer- 
cializa o programa. Segundo 
Tonkin, “os distribuidores nffo 
querem comprar o seu soft- 
ware, eles querem comprar vo- 
ce”, pois exigem um suporte 
tecnico continuo por parte de 
uem criou o programa, alem de 
arcm ao autor, uma mar gem de 
receita muito pequena - entre 
20% e 25%. Apesar disto, Bruce 
Tonkin admite que o distribui- 
dor e importante, porque e ele 
quern avalia o pacote, investe 
em propaganda e se encarrega de 
dar um suporte mi'nimo as lojas. 

EXPECT ATIV AS DO AUTOR 



AS Dl FICULDADES 

Bruce Tonkin concluiu uma 
prime ira versao do Creator em 
15 dias, trabalhando cerca de 
200 horas no projeto. Apos essa 
pnmeira etapa, levou o progra- 
ma ao seu advogado para pro- 
vidcnciar o copyright que Ihe 
pcrmitiria receber os royalties 
provenientes da sua futura co- 
mercializagffo. Varios meses de 
trabalho, contudo, ainda foram 
necessdrios para depurar o Crea- 
tor, eliminando todos os erros 
do programa. 

Com o programa pronto, Ton- 
kin saiu em busca de investido- 
res que acreditassem no Crea- 
tor e se interessassem numa as- 
sociagao. Foi ai que comega- 
ram a aparecer os primeiros pro- 
Wemas, e ate hoje ele lamenta 
nao ter tido condigdes financei- 
ras de bancar o projeto sozinho. 
A companhia com a qual se as- 
sociou tin ha os direitos exclu- 
sivos de comercializagao, en- 
quanto ele ficou com os direi- 
tos autorais e de modificagfo. 
O problema foi que, embora o 
programa tivesse sido bast ante 
comercializado, o autor diz nao 
ter recebido um unico dolar de 
royalties. 

Para Bruce Tonkin, seu erro 



Segundo seu autor, o Crea- 
tor foi dcsenvolvido com os se- 
guintes objetivos: ajudar a escre- 
ver programas em BASIC sem 
erros; possibilitar a esses progra- 
mas acessar registros no arquivo 
de dados de uma forma fdcil, 
atraves de chaves; atualizar facil- 
mente os registros de qualquer 
campo; permitir aos registros 
criaaos no programa gerado ter 
qualquer tamanho dentro do 
BASIC da Microsoft, ou seja, 
um maximo de 255 bytes; dar a 
cada registro um minimo de 20 
campos; impedir, o maximo pos- 
sfvel, que problemas operacio- 
nais das mais variadas naturezas 
afetem o arquivo de dados; dar 
total liberdade ao usuirio para 
determinar os parametros do 
programa a ser gerado, tais co- 
mo validagffo de dados de entra- 
da, mensagens de erro utiliza- 
das, tamanho dos registros e 
campos, tipo e numero de cam- 
pos; utilizar o espago de regis- 
tros com efidencia; ser facil de 
operar mesmo por uma pessoa 
que nSo conhega muito a lin- 
guagem BASIC; rodar numa 
configuragJo de um unico drive 
e 32 Kbytes, para possibilitar 
o maior numero possfvel de 
usudrios e permitir que o pro- 
grama gerado seja construido de 
forma modular. 



Bib/iografia: revista ‘80 Micro', edigSo de janeiro de 1983 



Luiz Gonzaga de Alvarenga 4 T6cnico de TelecomunicscOes e trabalha 
na Embratel, em GoiSnia, onde reside. 
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A Clappy tem as 
Calculadoras HP para 
voce ficar ainda mais 
ligado no seu trabalho 
ou no seu estudo. 



E se desligar no 
reco:5xsemjuros. 
u 3 x com 10% de 
desconto. Ou 15% de 
desconto a vista. 




Sistema HP-IL- A ultima 
palavra em sistemas inte- 
grados para calculadoras 
de bolso. Permite o funcio 
namento das calculadoras 
HP 41C/CV comatd 
30 unidades compativeis, 
cassete digital HP-IL. 
Impressora Plotadora 
HP-IL e mais. mddulos 
para extensao de fungdes 
ede memdrias. 
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HP 1 2 C - Calculadora 
Fmanceira/Estatistica 
Programavel. 

20 memdrias. 

CrS 609.000, 
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HP 15 C - Calculadora 
Cientifica Programdvel 
Avangada. 448passos. 
67 memdrias. 



CrS 609.000, 
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HP 11 C- Calculadora 
Cientifica Programavel. 

203 passos, 21 memdrias.' 

CrS 408.000, 



Clappy 

0 lado gente da maquina 



Who 1 HEWLETT 
mLUM PACKARD 



Venha a nossa loja ou solicite a visita de um representante. 

Centro: Rua Sete de Setembro. 88 - Loja Q (galeria) -Tels.: (021) 222-5517 - 222-5721. 
A v. Rio Branco. 12 - Loja e Sobreloja - Tel.: (021) 253-3395. 

Sao Cristovao: Rua Antunes Maciel, 25-2° andar-Tels.: (021) 234-0214 - 264-2096. 
Copacabana: Rua Pompeu Loureiro, 99 - Tels.: (021) 257-4398 - 236-7175. 

Aberta diariamente das 9 as 19 horas e aos sabados das 9 as 14 horas. 

Assistencia T6cnica: (021) 284-3349. 

Entregamos em todo Brasil pelo Reembolso Varig. 





No concorrido mercado das instituigoes f i nance iras, a tentativa de oferecer 
um servigo cad a vez me/horao cliente tem novo a/iado: a automagao 




O Banco 24 Horas possui hoje 21 quiosques como este 
em Sao Paulo, Rio de Janeiro e Curitiba. 



ALTOMACAO 

BANCARIA: 




A l 6 pouco tempo atras, quando 
pediamos nosso saldo numa 
agenda bancdria, o funciondrio 
do caixa tinha que manusear um enorme 
formuldrio de controle de todas as con- 
tas daquela agenda, procurando pelo 
numero de nossa conta. Esses formula- 
rios eram emitidos diariamente pelo 
Centro de Processamento de Dados do 
banco para cada uma de suas agendas e 
continham informaijoes sobre as movi- 
menta? 6 es, saques e depositos realizados 
no dia anterior. A outra possibilidade de 
controle, por parte do cliente, de sua 
conta, limitava-se k espera pelos extratos 
emitidos pelo computador central do 
banco e enviados periodicamente a sua 
casa. 

Hoje, com o rdpido processo de auto- 
ma^ao que vem se desenvolvendo na 
rede bancaria, o proprio cliente acessa 
diretamente o computador central, 
obtendo as informa9oes que Ihe interes- 
sam, median te a entrada de uma senha e 
de seu numero de conta, que lhe permi- 
tem acesso ao enorme banco de dados 
que cada instituisao possui. Isto porque 
a grande maioria dos bancos ja esta in- 
terligando suas agendas atravds de ter- 
minais de caixa ligados ao computador 
central, de forma que o cliente tem a 
seu dispor nao apenas a agenda onde 
tem sua conta, mas toda a rede compos- 
ta pelo servi90 eletronico. 

Al£m dos terminals de caixa ligados 
on line com o equipamento central, o 
que faz com que todas as transa9oes se- 
jam repassadas imediatamente (real 



time) a conta do cliente, os bancos pas- 
saram a oferecer tambdm terminais 
automdticos que sao operados pelo pro- 
prio cliente. Atraves deles, a pessoa po- 
de obter qualquer tipo de informa9ao 
sobre sua conta, desde o saldo atd lan- 
9amentos em cheques que estao em pro- 
cesso de compensa9ao. Atd mesmo os 
extratos relativos a movimenta9ao da 
conta em um determinado espa90 de 
tempo ja podem ser conseguidos a qual- 
quer hora, em terminais dotados de pe- 
quenas impressoras. Neste caso, o pr 6 - 
prio cliente determina a partir de que 




O Bradesco possui nove maquinas 
A TMs ja instaladas em Sao Paulo 
e Rio de Janeiro. 



dia ele deseja conferir a movimenta9ao 
de sua conta. 

BANCO 24 HORAS 



Outra grande vantagem 6 que qual- 
quer transa9ao bancaria deixou de ficar 
restrita ao horario de funcionamento 
das agendas, desde que os bancos come- 
9aram a implantar maquinas do tipo 
ATMs (Automatic Teller Machines). 
Estas maquinas, colocadas no exterior 
das agendas, funcionam tambdm como 
terminais ligados ao equipamento cen- 
tral do banco e possuem uma sdrie de 
recursos que possibilitam realizar diver- 
sas opera9oes bancdrias, mediante uso 
de cartSes magndicos, a qualquer hora 
do dia e da noite, inclusive aos sabados, 
domingose feriados. 

Inicialmente, cada institui9ao instala- 
va ATMs nas agendas que considerasse 
mais adequadas. Como o pre90 dessas 
mdquinas 6 muito alto (por volta de 
Cr$ 80 milhSes, as de fabrica9ao nacio- 
nal), os bancos passaram a considerar o 
desenvolvimento conjunto de projetos, 
para compartilhar as maquinas e dividir 
os custos, Uma vez que as maquinas s 5 o 
instaladas fora das agendas nao haveria 
nenhum inconveniente na participa9ao 
de varios bancos, mesmo que concor- 
rentes. 

Com base nesta filosofia, surgiu a 
empresa Tecnologia Bancdria, responsi- 
vel pelo Banco 24 Horas — quiosques 
onde estao instaladas as ATMs - situa- 
dos em varios locais da cidade. A inicia- 
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tiva de constitui$ao da Tecnologia Ban- 
cdria partiu dos bancos National, Uni- 
banco e Bamerindus, que decidiram 
criar uma empresa neutra para desenvol- 
ver este tipo de trabalho, totalmente 
desvinculado dos sistemas de automa^o 
intemos, dentro das agencias de cada 
uma das institutes. Mais tarde, integra- 
ram o grupo tambem o Banco Real e 
Banco Mercantil de Sao Paulo, cada urn 
com 20% do controle aciondrio. 

Hd algum tempo, a Tecnologia Ban- 
cdria passou a atuar tambem como pres- 
tadora de servi^o, ou seja, os bancos que 
se interessarem poderao, atrave's de con- 
trato, dispor do mesmo servt hoje ofe- 
recido aos cinco bancos acionistas. 0 
primeiro a se interessar foi o Banco 
Auxiliar, e o Banco Lar Brasileiro deve- 
ra, em breve, tambem se integrar ao 24 
Horas. 



AS ATMs 



A empresa Tecnologia Bancdria foi 
constituida em maio de 81, e em no- 
vembro daquele ano a Secretaria Espe- 
cial de Informatica autorizou a importa- 
9 ao das ATMs, para as quais ate entao 
nao havia similar national. Hoje, estas 
maquinas ja sao fabricadas no Brasil e a 
propria Tecnologia Bancaria, que utili- 
zava equipamentos da Burroghs, reali- 
zou uma concorrencia, em fevereiro des- 
se ano, da qual saiu vencedora a empresa 
Sid, e ji encomendou 50 mdquinas que 
serao entregues a partir de setembro 
prdximo. Com as novas ATMs nacionais, 
a Tecnologia Bancaria, que ji atua em 
tres capitais - Sao Paulo, Curitiba e Rio 
de Janeiro - atualmente com 21 quios- 
ques ao todo, come 9 ara a operar tam- 
btin em Belo Horizonte e Porto Alegre. 

As mdquinas ATMs s3o compostas 
por um conjunto que compreende, alem 
da Unidade Central de Processamento, 
um video; uma impressora; uma leitora 
de cartoes magneticos; teclado;um con- 
tador de dinheiro e um dispositivo para 
receber envelopes com depositos (em 
cheque ou em dinheiro) e com contas 
ou carnes a serem pagos. 

Por enquanto, todos os serves ainda 
estao sendo realizados off line, quer 
dizer, a propria maquina paga a quanti- 
dade estipulada pelo cliente ao digitar o 
teclado, dentro de de seu limite, sem 
consultar o computador central. Ja as 
contas e carnes sao recolhidos por fun- 
ciondrios da Tecnologia Bancaria, no fi- 
nal de cada dia, e levados a cada um dos 
bancos participates do 24 Horas. onde 
passam pelo processo normal de paga- 
mento. As ATMs estao ligadas on line 
com microcomputadores da empresa 
Scopus, situados no centra da Tecnolo- 
gia Bancaria em cada estado. 0 micro 
tern por fun?ao realizar uma “varredu- 
ra”; uma verifica 9 ao que controla se 
todas as mdquinas estao funcionando 



bem e “carregadas” de dinheiro suficien- 
te. 0 micro tambdm transmite as “listas 
negras” de cada um dos bancos para as 
ATMs e “puxa” todas as transa 9 oes exe- 
cutadas pelas mdquinas, repassando-as, 
ao fmal do dia, atravds de teleprocessa- 
mento a cada um dos bancos. A previsao 
6 que, em breve, todos os terminais e 
bancos sejam ligados on line, o que au- 
mentara a margem de seguran 9 a para os 
bancos que utilizam o servt, jd que 
antes de cada saque a propria maquina 
consultard a conta do cliente para se 
certificar de que ha saldo. 

O acesso aos quiosques aonde estao 
instaladas as ATMs e as prdprias maqui- 
nas e feito atraves de cartoes magneti- 
cos. Na tarja do cartao consta, entre 
outras informa 9 oes, o limite de saque de 
cada cliente. 



Para Luiz Eduardo Sarmento, da em- 
presa Iautec. pertencente ao Banco Itau, 
uma das principal transforma 9 oes trazi- 
das pela automa 9 ao bancaria foi o con- 
ceito de cliente do banco, ao inves de 
cliente de determinada agencia, uma vez 
que, estando as agencias interligadas, o 
cliente pode utilizar qualquer uma, 
como se estivesse operando na propria 
agencia onde tern conta. 

Segundo Sarmento, a primeira rea 9 ao 
do publico do Itau frente as novas tec- 
logias do setor bancario foi de curiosi- 
dade, “depois houve um grande aumen- 
to na demanda, e hoje o cliente criou o 
habito de fazer seu proprio controle de 
conta, e ele descobriu tambdm que pode 
ser atendido por outras agencias que nao 
a sua”. 




Nos minimos detalhes, o Banco Itau procura passar a seus clientes a idem do Banco Eletronico. 
Na foto. a capa de um talao de cheques. 



AGENCIA X BANCO 



Segundo Gilberto Dib, diretor da 
Tecnologia Bancaria, o total dos saques 
realizados durante os finais de semana 
em Sao Paulo, onde hd maior numero de 
ATMs instaladas (nove), atinge a uma 
media de CrS 180 milhoes. Isto prova a 
boa receptividade a este tipo de servi 9 o, 
que chega a provocar filas em frente a 
determinados quiosques. Dib explica 
que ainda hoje as pessoas sentem certa 
dificuldade em lidar com este tipo de 
maquina, mas a Tecnologia Bancaria 
mantem uma linha direta em cada 
quiosque com um plantao na sede da 
empresa para esclarecer eventuais duvi- 
das.“Nossa decisao pelas maquinas da 
Sid tambem foi em conseqiiencia a este 
fato, }& que elas possuem mensagens 
sonoras para esclarecimentos”, completa 
Dib. 

E ampliando seus serves ligados a 
rede bancdria, a Tecnologia Bancaria vai 
lan 9 ar, no segundo semestre de 84, ter- 
minais de compras do Banco 24 Horas, 
que serao instalados em estabelecimentos 
comerciais. Esses terminais executam 
servi 9 o de transference eletronica de 
fundos e, com o mesmo cartao do Ban- 
co 24 Horas, o cliente poder2 pagar suas 
compras sem cheque ou dinheiro, e o 
debito em sua conta 6 automatico. 



O processo de automa 9 ao desenvol- 
vido pela Itautec para o banco Itau co- 
me 90 u em 79, com a implanta 9 ao de 
terminais ligados on line aos oito 
computadores IBM 4341 do CPD do 
banco. Hoje, nada menos que seis mil 
terminais estao ligados aos equipamen- 
tos do CPD do Itau, ai incluidos os ter- 
minais de caixa; terminais de clientes e 
terminais fornecedores de extratos; e 
das 900 agencias em todo o Brasil, 300 
ja sao eletronicas. A rede composta 
pelos equipamentos de grande porte e 
terminais do Itau processa cerca de 2 
milhOes de informa 9 oes por dia, “com 
tempo de resposta de menos de 3 segun- 
dos”. Segundo Luiz Eduardo, agora, 
com a aprova 9 ao pela SEI do projeto 
para a fabrica 9 ao de super minis da 
Itautec, “a ideia d utilizar estes equipa- 
mentos como ji termed iarios entre os 
terminais de agencias e o CPD”. 

A Itautec desenvolve todos os equi- 
pamentos de automa 9 ao utilizados pelo 
banco Itau, desde os terminais ate' as 
ATMs. Hoje, o Itau possui 20 ATMs ins- 
taladas, e ate o fmal do ano a previsao 6 
de atingir a marca de 90 maquinas em 
funcionamento no prdprio Itau, alem de 
outras 10 ja vendidas pela Itautec para 
outros bancos. 

O processo de automa 9 ao do Itau 
preve, numa primeira etapa, tomar ele- 
tronicas todas as agencias ligadas a gran- 
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AUTOMAQAO BANCARIA 



des centros urbanos e, em seguida, auto- 
matizar agencias de centros menores, 
com o controle regional intermediary 
entre agencias e CPD provavelmente 
sendo realizado por equipamentos como 
super minis ou supermicros. Ainda se- 
gundo Luiz Eduardo Sarmento, com a 
automa^o, “os funciondrios que antes 
ficavam ocupados com servi^os in ter nos 
passaram a ter mais tempo para dedicar 
ao cliente.” Ele afirma que a automa^o 
de forma alguma gerou dispensa de fun- 
cionarios; todos foram treinados para 
lidar com os novos equipamentos. “A 
razao basic'a que leva os bancos a se 
automatizarem nao 6 economia de 
mao-de-obra, mas sim o oferecimento de 
novos servigos”, enfatiza. 



ITAUFONE 



0 Itau foi o primeiro banco a ofere- 
cer a seus clientes o servi 9 o de saldo 
pelo telefone atraves da URA — Unida- 
de de Resposta Audivel. A URA, tam- 
bdm desenvolvida pela Itautec, faz com 
que qualquer telefone passe a atuar 
como um terminal para efeito de pedido 
de saldo. 0 cliente liga para o numero 
de acesso ao CPD do banco, disca o 
numero de sua conta e, em seguida, o de 
sua senha. O equipamento faz, entao, a 
conversao da informa^ao digital para 
informa^ao falada, atraves de um sinteti- 
zador de voz. 0 Itau recebe, em m£dia, 
mais de 20 mil telefonemas diarios de 
pedido de saldo. 

Outro servi 9 o ao qual tambem estd 
ligado o Itau d o videotexto, e o cliente, 
de posse do terminal em casa ou no es- 
critdrio, tern acesso a todas as informa- 
9 &es fornecidas pelo terminal da agen- 
da, al£m de dados sobre cobran 9 a de 
tftulos etc. 

E o Itau tambem nao ficou atrds na 
produ 9 ao de terminals de transference 
de fundos. Os primeiros destes termi- 
nals, fabricados pela Itautec, foram for- 
necidos ao Credicard e j i estao instala- 
dos no Shopping Center Eldorado, em 
Sao Paulo, para recebimento de cartoes 
de crldito. A rede deverd ser estendida 
para operar tambem com cartQes magne- 
ticos dos bancos filiados ao Credicard, 
inclusive o Itau. 

Segundo Luiz Eduardo Sarmento, 
deverao haver, de inicio, tres redes de 
terminais de transference de fundos: a 
dos bancos filiados ao Credicard; a dos 
que compoem o grupo Tecnologia Ban- 
cdria e a do Bradesco. E, na prdtica, sSo 
estas os grupos que jd vem atuando nes- 
sa area, que engloba automa 9 ao bancaria 
e automa 9 ao comercial. 



BRADESCO INSTANT ANEO 



0 Bradesco possui hoje cerca de 80 
terminais de transference de fundos ja 
instalados nas lojas do Shopping Center 



Telecompras 
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Propaganda do 
TELECOMPRAS, 
um servifo do 
Bradesco 
Instantaneo . 



Iguatemi, em Sao Paulo. Os terminais te- 
lecompra, fabricados pela empresa pau- 
lista Digilab, possuem teclado destacd- 
vel, ligado por cabo, e um pequeno vi- 
sor, usados pelo cliente para verificar o 
valor da compra e autorizar o ddbito. 
Com a implanta 9 ao do terminal tele- 
compra Bradesco, as compras atravds de 
cartao magnetico deverao atingir um 
volume significativo, ja que mais de dois 
milhoes e meio de clientes do banco 
possuem esse tipo de cartao. 

Adotando uma politica diferente dos 
demais bancos, que em geral distribui- 
ram cartoes para clientes especiais, no 
Bradesco qualquer cliente pode retirar 
seu cartdo no banco, passando a ter 
acesso ds facilidades que este oferece, 
entre as quais o telecompra. “0 cartdo 
para nos e uma espdeie de veiculo para 
que o cliente possa adentrar na automa- 
9 I 0 ”, explica Luiz Carlos Trabuco, Dire- 
tor de Marketing do banco. E o Brades- 
co partiu entao para a distribu^ao ma- 
ci 9 a de cartSes, o que, alem de gratificar 
o cliente, como ressalta Trabuco, tam- 
bem auxilia as pessoas semi-alfabetiza- 
das que tinham dificuldade em assinar 
cheques, opera 9 ao que tornou-se desne- 
cessdria. 

Atem do terminal telecompra, o siste- 
ma Bradesco Instantaneo inclui a insta- 
la 9 §o de ATMs; o TeleBradesco e a auto- 
ma 9 ao interna das agencias. 0 Bradesco 
possui hoje nove ATMs instaladas, entre 
Sao Paulo e Rio de Janeiro, todas fabri- 
cadas pela Fujitsu, e at£ o final do ano 
estd prevista a instala 9 ao de 30 ATMs, 
estas ultimas jd encomendas a Sid. Se- 
gundo Trabuco, o consumidor quando 
ve uma ATM se considera diante de uma 
agenda, e jd a utiliza como tal. 

0 TeleBradesco 6 um servi 9 o de im- 
planta 9 §o de terminais, hoje da marca 
IBM, em fase de transference para Sid 
3000, dentro das empresas, para obten- 
9 §o de informa 9 oes como cobran 9 a de 
titulos, entre outras. O TeleBradesco 
atua tambem a nfvel residencial, para 
clientes que possuem terminais de video- 
texto. Alem de ser fornecedor de servi 90 
do sistema, o Bradesco desenvolveu um 
sistema privado de videotexto, que pos- 
sibilita aos clientes que possuem termi- 
nais o acesso direto ao computador cen- 
tral do banco sem sair de casa. Na opi- 
niao de Luiz Trabuco, o videotexto e 



um instrumento irreversivel e definitivo, 
e cabe aos homens de marketing utiliza- 
lo de forma criativa. 

O processo de automa 9 ao no Brades- 
co come 90 u em 1961, quando o banco 
introduziu computadores no seu proces- 
samento. Nas decadas de 60 e 70, o 
Bradesco montou um grande Centro de 
Processamento de Dados para agiliza 9 ao 
dos servi 90 s, e este processo, segundo 
Trabuco, chegou a ser sentido pelo 
cliente, ainda que de forma indireta. E 
foi entre o final da ddcada de 70 e o 
come 90 dos anos 80 que teve inicio uma 
nova fase, com o cliente operando ter- 
minais dentro das agencias. 

Este ano, o Bradesco adquiriu um 
IBM 3084, o que existe de mais moder- 
no em termos de equipamento de gran- 
de porte, com 4 CPUs, 64 Mbytes de 
memoria e capacidade de processamento 
de 20 milhoes de instru 95 es por segun- 
do: um equipamento robusto para aten- 
der os 16 milhdes de correntistas espa- 
lhados pelo pais em 1.500 agencias. 
Destas, 300 ft sao agencias instantaneas, 
todas interligadas e trabalhando, cada 
qual, com um minicomputador Sid 
4800, que executa o trabalho de inter- 
media 9 ao entre a agenda e o CPD. Ao 
todo, segundo dados do Departamento 
de Marketing do banco, hoje ja existem 
mais de dez mil terminais ligados ao 
CPD. 

O Bradesco orgulha-se tambem de 
possuir a maior agenda eletronica do 
Brasil, a agenda Nova Central, situada 
na Av. Ipiranga, centro de Sao Paulo, 
com 100 mil correntistas. Apenas nessa 
agenda, 130 terminais - entre terminais 
de caixa, de cliente e terminais de forne- 
cimento de extrato - estao ligados a um 
unico minicomputador. Todo o sistema 
Bradesco Instantaneo esta interligado on 
line, e o processamento se di na mesma 
hora que estd sendo efetuada a transa 9 ao. 

Sem duvida podemos afirmar que o 
setor bancirio 6 uma das dreas onde a 
automa 9 ao vem se desenvolvendo com 
maior rapidez, num processo vinculado 
as necessidades dos bancos nacionais e 
a nossa realidade. E em breve andar com 
dinheiro no bolso pode virar coisa do 
passado... ■ 



Texto: Stela Lachtermacher 
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O Governo prepara-se para regulamentar a 
automa<;ao bancaria. 
Os grandes bancos, clientes da BK, ha muito ja 
elegeram o NBK S£rie V, o No-Break da BK, como 
equipamento indispensdvel para manter os 
terminais e os computadores em funcionamento 

ininterrupto: 
Banco Nacional - 



Banco Nordeste do Brasil - Banco Economico 
Banco do Estado do Amazonas - Banco do Estado 
do Pernambuco - Banespa - Banco lochpe 
Banco do Brasil - Bamerindus - Finasa - Citibank 
Banorte - Banco Maisonnave - Banco Noroeste 
Banco Boa Vista - Banco de Cr6dito Real MG 
BCN - Proban - Caixa Economica Federal 
Caixa Economica Estadual RS 



CONSULTE A BK. ELA SOLUCIONA. 

BK VENDE COMF1 ABILIDADE. 



ASDIO-J 

< 




100% Z 



Matriz: Porto Alegre - Av. J 00 o Ferreira Jordim, 138 - Tel. (0512) 40-361 1 - Telex (051 ) 2.303 • Filiais: S60 Paulo: Av. Indiandpolis, 2171 Tels. (01 1 ) 275-4510 e 275-5817 
Telex (01 1 ) 37.304 • Rio de Janeiro: Rua Visconde de Inhauma, 58 - Salo 1002 - Tel. (021 ) 263-0132 • Representontes: ITS: Porto Alegre (0512) 49-2550 / Santa Rosa (055) 
512-1399 / Bog* (0533) 42-4546 SP: Campinas (0192) 42-7333 BIP ML 08 - RJ: R de Janeiro (021 ) 240-2876 - SC Floriandpolis (0482) 44-7864 - PR: Curitiba (0412) 66-5013 e 
66-9851 / Londnna (0432) 23-3584 - MG: Belo Horizonte (031 ) 332-7844 e 335-5266 - Df : (0612) 44-9574 GO: Go.6n,a (0622) 25-8226, 23-3334 e 25-2366 - ES: Vitdno (0272) 
231124 - BA/SE: Salvador (0712) 41-3091 - PE/AL/PB: Recife (0812)22-4547- RN: Natal (0842) 31-1266 - a/ PI: Fortaleza (0652) 24-3440 - MA: S60 luiz (0982) 22-0185 
PA: Be 16m (0912) 24-3224 - AM: Manaus (0922) 37-1793 e 37-1033 MT: Cuiab6 (065) 3831270 - MS: Compo Grande (0673) 831270 e 831272 







Automacao de escritorios 
e destaque na ll a FUSE 



Paralelamente, k FUSE, realizaram- 
se o I Congresso Internacional de Au- 
toma 9 So de Escrit6rios, que reuniu es- 
pecialistas nacionais e estrangeiros na 
drea, o Infobris/84 — Encontro de 
Inform^tica Brasileira, que destacou o 
microcomputador e seu uso, e tambdm 
palestras do grupo de apoio em Infor- 
mdtica k pequena empresa. 

No Congresso de Au tomato, fo- 
ram discutidas as duas tendencias que 
atualmente norteiam as empresas em 
vias de se automatizarem : a centrali- 
zagdo de informagoes, com o uso de 
terminals como esta^Oes de trabalho 
ligadas ao equipamento central da em- 
presa; e o processamento descentrali - 
zado, baseado na implanta93o de mi- 
crocomputadores nos vinos departa- 
mentos que passam, assim, a ter uma 
atua 9 So mais autdnoma, independente 
do computador central, podendo 
mesmo estar ou nfo ligado a este, con- 
forme a op 9 So de cada empresa. 

Tex to: Cldudia Rama! ho fi 



A pds uma paraliza^o de oito 
anos - tempo em que o pafs 
come 90 u a viver um maior de- 
senvolvimento na Irea de escrit6rios e 
sua automa 9 fl'o - a FUSE - Feira In- 
ternacional de Utensflios e Serv^os de 
Escritbrio voltou para mostrar o que 
h£ de novo no setor. Organizada pela 
Alcantara Machado, a feira realizou-se 
de 20 a 24 de junho, em Sffo Paulo, 
com a apresenta 92 o de microcomputa- 
dores e periflricos (estandes da Prol6- 
gica, Dismac, Scopus, Cobra, Poly- 
max e Unitron, entre outros), equi- 
pamentos de telecomunica 90 es, micro- 
filmagem, videotexto, mdveis e mate- 
rial para escrit6rio. 

AUTOMACAO DE ESCRITORIOS 

A Telesp mostrou os terminais de 
videotexto nacionais para escritdrio, 
fabricados pela Splice, Digitel e Parks, 
enquanto que a Brascom apresentou a 
sua versSo de Office Automation, um 
pacote de aplicativos que inclui, en- 
tre outros, agenda pessoal e de compro- 
missos, controle de documentos e mala 
direta. Outra novidade apresentada foi 
o sistema de processamento de texto 
desenvolvido pela Forma Computado- 
res, e que utiliza interface para m^- 



Mesa da Memphis, especial para microcomputadores 



Os novos mddulos para a 
HP-41CV, da Hewlett-Packard , 
permitem o funcionamento da 
calculadora com uma sirie de 
acessbrios, tais como unidades 
impressoras e de armazena- 
mento em fita cassete (foto). 
Dentre esses mddulos, a 
empresa mostrou o HP-IL, que 
interliga acessbrios num 
looping de comunicacoes, e o 
Mbdulo de Funqao de Tempo 
HP82182A, que tambdm 
permite usar a calculadora 
como alarm e para lembrar 
encontros, reunites etc. 



O Edit Video, sistema de processamento de textos da MDA, tern tela dealta densidade (52 
linhas de 80 caracteres), teclado com /undoes e spec (fleas, membria interna para armazenar 
cerca de 20 pdginas, uma ou duas unidades de disquetes de 5 1 14” e interface para impressoras 
de margarida ou matriciais. 



quina de escrever eletronica Remtro- 
nic 2000. J4 a Compo do Brasil lan- 
90 U dois monitores de video, um mo- 
nocromdtico e outro colorido, ambos 
compativeis com o IBM PC, aldm dos 
micros da Itautec, Microtec e Scopus. 

No seu estande, a Magnex demons- 
trou a possibilidade de transformar 0 
Manager I em terminal inteligente pa- 
ra equipamentos IBM e Burroughs me- 



diante o uso de uma placa de protoco- 
lo operacional. A Elebra, por sua vez, 
apresentou o MC 6000-GC, mddulo de 
expansSo que atribui k impressora Mo- 
nica resolu 9 ^o grdfica e melhor quali- 
dade para impress^o de cartas com ma- 
triz densa. Entre os suprimentos, a 
Memphis lan 90 u uma mesa especial 
para microcomputadores. 

CONGRESSO INTERNACIONAL 
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CURSO DE ELETRQNICA DIGITAL 



CURSODE 

ELETR&NICA E AUDIO 



mais de 140 apostilas com informagOes completas e sempre 
atualizadas. Tudo sobre os mais revolucion£rio CHIPS. E voce 
recebe, alem de uma sdlida formagio teorica, KITS elaborados 
para o seu desenvolvimento pr4tico- Garanta agora o seu futuro. 



<= s 



CEDM 20 • KIT 
de Ferramentas. 

CEDM 78 KIT 
Fonte de Alimentagao 
5v/1 A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 



M^todos novos e inbditos de ensino garantem urn aprendizado 
pratico muito melhor. Em cada nova ligSo, apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores, 
Toca-discos, Sintonizadores AM/FM. Gravadores e Toca-Fitas, Capsulas 
e Fonocaptadores. Microfones, Sonorizagao. InstrumentagSo de Medidas 
em Audio. T^cnicas de Gravagao e tamb6m de ReparagSo em Audio. 



CURSODE 

PROGRAMAQAO EM BASK 



Este CURSO, especialmente programado, oferece os 
fundamentos de Linguagem de ProgramagSo que domina o umverso 
dos microcomputadores. Dindmicoe abrangente. ensma desde o BASIC 
bisico at6 o BASIC mais avangado. inclumdo nogoes b&icas sobre 
Manipulagao de Arquivos, T6cnicas de Programagao, Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramagao e 
T^cnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimento em toda a Area de Processamento de Dados 






CEDM 1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentag3o 
♦ 15-15/1A. CEDM 3 • KIT Placa Experimental 
CEDM 4 - KIT de Componentes. CEDM 5 - KIT Pr6-amplificador 
Estfcreo. CEDM 6 • KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo prbprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado ffcll. E 
para esclarecer qualquer duvida, o CEDM coloca d sua disposigflo uma 
equipe de professores sempre muito bem acessorada. AI6m disso, voc6 
recebe KITS preparados para os seus exercfcios pr$ticos. 

Agil, moderno e perfeitamente adequado d nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigOes ideais para o seu 
aperfeigoamento profissional. 



GRATIS 



VocS tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies vocfi recebe nossos catdlogos de apresentagao. 



KIT CEDM Z80 
BASIC Cientlfico. 

KIT CEDM Z80 
BASIC Simples. 

Gabarito de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 



L Avenida Sao Paulo, 718 - Fone (0432) 23-9674. 

1 CAIXA POSTAL 1642 -CEP 86100 - Londrina- PR 
CURSO DE APERFEICOAMENTO POR CORRESPONDENCY 

Solicito o mais rdpido possivel informagdes sem compromisso sobre o 
CURSO de 



CEP 



MS 







No presente, 
o Escritorio 
do Futuro 

Automapao no escrit6rio: somem o Icipis e o papel e o 
profissional tern todo o seu tempo dedicado ao ato de 
pensar e tomar decisoes. Nao 6 bem assim, mas jS 
estamos mais prdximos de uma modernizapao radical 
na comunicapao dentro do escritdrio. 



H i poucos anos atrds, por vol- 
ta do final da decada de 70, 
falava-se em escritorio do 
futuro como algo completa- 
mente distante de nossa realidade. Dan- 
do asas i imaginagao, o escritorio do 
futuro era pintado por muitos como 
aquelas salas especiais intergalaticas, lo- 
tadas de maquinas enormes, como via- 
mos nos filmes de ficgao cientifica. 

Hoje, esse futuro do qual falavamos 
chegou, e o novo escritdrio, com poucos 
exemplares ainda no Brasil, se mostra 
bastante diferente do que imagindva- 
mos. Nada de secretarias robos, camaras 
de despressurizagao ou qualquer coisa 
do genero. Ha simplesmente a enfase em 
tornar cada vez mais eficiente um dom 
natural do homem: a comuni cagao. Esta 
6 a principal meta do escritorio automa- 
tizado, que busca em ultima instancia 
liberar o ser humano de tarefas corri- 
queiras e repetitivas, de modo que lhe 
sobre tempo para o unico ato, que o dis- 
tingue dos demais animais: pensar. 

Muitos apregoavam que o escritdrio 
do futuro seria aquele onde nao ha- 
veria necessidade de lapis e papel, e este 
e realmente um dos primeiros sintomas 
do escritorio automatizado. Nao que 
estes objetos estejam em fase de extin- 
gao, mas sua utUizagao serd cada vez 
menor com os novos habitos que a auto- 



magio traz. Ao inves dos milhSes de me- 
morandos que circulam diariamente na 
maioria das empresas, as mensagens pas- 
sarao a ser enviadas atraves de estagdes 
de trabalho, terminais ou microcompu- 
tadores, instalados nos varios departa- 
mentos e nas mesas dos gerentes. 

Outra novidade 6 o sistema de video- 
texto, que permite ao usuario, atraves 
do telefone, acessar um banco de dados 
que dispOe das mais variadas informa- 
goes, desde previsao do tempo ate o 
noticidrio do dia e cotag6es da bolsa de 
valores. Alguns bancos tambdm j i parti- 
cipam do sistema videotexto, e desta 
forma os usuarios do sistema tern aces- 
so, atraves do terminal instalado no es- 
critorio, &s mesmas informag6es dispo- 
niveis nos terminais de consulta que 
vem sendo instalados nas agencias ban- 
cdrias. 

Neste processo de automagao de es- 
critorios j i se apresentam duas tenden- 
cias distintas, tragadas pelas empresas de 
acordo com sua politica interna. Estas 
tendencias seriam basicamente sistemas 
centralizados de automagao e sistemas 
descentralizados. Em algumas empresas, 
o processo de automag§o dos escritorios 
vem ocorrendo atraves da instalagao de 
terminais de video, todos ligados ao 
computador central, o que denota um 
sistema centralizado, pois os terminais, 



mesmo que inteligentes, chegam a pro- 
cessar as informag&es, mas nSo atuam 
como estagoes autonomas. Ja o sistema 
descentralizado exige a instalagao de 
microcomputadores, que tanto podem 
atuar como terminais do equipamento 
central da empresa como tambem exe- 
cutar seu proprio servigo, recebendo da- 
dos, processando-os e enviando-os para 
outro equipamento, se for o caso. 



“No ultimo 
seculo nao houve 
nenbuma grande 
transformagao 
em term os de 
evoluqao nos 
escritorios “ 



A automagao de escritorios nao 
representa propriamente um 
conceito. mas um processo 
continuo de utilizagao de no- 
vas tecnologias. A opiniao 6 de Jorge 
Coimbra, estudioso da area e que presi- 
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Figura 1-0 projeto do Escritdrio do Futuro do arquileto Henrique Cambiagui Filho. 



ALTERNATIVA PARA EWFICIOS EM TERRENOS 
VALOR IZ ADOS 



ALTERNATES PARA EDIFICIOS EM TERRENOS 
NAO VALORIZADOS 



LEGENDA : 

1 - EL EVADOR 

2 - RECEP9A0/ ESPERA 

3 - CIRCULAR AO 

4 - XEROX / HELIOGRAFIA 



M-JAROtt* 



3- PABX/TELEX/FAC- SJMILE A CHST 

6 - CPG/VIOEO TEXTO/PROCESS OE TEXTO 

7 — SECRETARIA GERAL 
6 - SANITARIOS 



diu o 19 Congresso International de 
Automa^o de Escritdrios, realizado no 
final de junho, em SSo Paulo. Coimbra 
faz uma revela?ao surpreendente: segun- 
do ele no ultimo seculo n2o houve ne- 
nhuma grande transforma^So em termos 
de evolu9ao dos escritorios. A explica- 
930 estd no fato de que equipamentos 
b3sicos como ldpis e papel, maquinas de 
escrever e telex ja existiam h3 cem anos 
atras, e as inova9des somente aparece- 
ram com o surgimento das maquinas co- 
piadoras e com o computador. Segundo 
Coimbra, ate bem pouco tempo atras o 
computador era voltado exclusivamente 
as tarefas estruturadas, isto 6, atividades 
que o homem define previamente. Mas a 
introdu9ao do microcomputador no es- 
critdrio proporcinou a utiliza9ao desses 
equipamentos em tarefas semi-estrutura- 
das, como, por exemplo, analise de sen- 
sibilidade, que determina o comporta- 
mento dos dados de acordo com a varia- 
9§o de determinados parametros. 
“Quando nao haviam microcomputadores 
em escritorios, para cada varia9ao de pa- 
rametro que se quisesse medir, era ne- 
cessdrio elaborar um sistema especifico. 
Hoje, com o micro, os dados sao modi- 
ficados no proprio lugar, na mesma ho- 
ra”, explica Coimbra. 

Segundo Jorge Coimbra o primeiro 
passo significativo para automa9ao de 



escritdrios se deu com o aparecimento 
dos micros voltados para processamento 
de textos. O passo seguinte foi a utiliza- 
9ao de planilhas eletronicas nos prdprios 
micros; e o terceiro grande passo neste 
setor foram os bancos de dados em mi- 
crocomputadores. Atualmente, as mais 
recentes inova9oes ficam por conta da 
integra9ao de vdrios programas como, 
por exemplo, de planilhas eletronicas 
que disponham de banco de dados e 
processador de textos. 

Mas com todas essas inova9des, a co- 
munica9ao entre os integrantes do es- 
critorio continua sendo um dos pontos 
chave inclusive para sua automa9ao. Em 
fun9§o disso, Coimbra afirma que o 
grande salto que ird marcar definitiva- 
mente a automa9ao de escritorios sera a 
rede local, que propiciara que os micros 
conversem entre si. As redes locais de- 
verao causar inclusive uma transforma- 
9ao no comportamento do mercado de 
informatica, pois atravds das redes, o 
custo unitario de cada equipamento se- 
ra menor para as empresas, j3 que os pe- 
rifericos, tais como impressoras e discos 
magndticos, poderao ser compart ilhados 
atraves da rede. 

As redes locais darao origem tambem 
a um novo tipo de servi9o: o correio ele- 
tronico, atraves do qual as mensagens 
s3o enviadas de uma esta9ao de traba- 



lho, terminal ou microcomputador, a 
uma ou mais esta9oes. O correio eletro- 
nico vai representar uma sensivel dimi- 
nui9ao de interrup9oes por causa de te- 
lefonemas e de tempo perdido em tenta- 
tivas de se dar telefonemas que acabam 
nao se concretizando. Aldm de transmi- 
ts mensagens, o correio eletronico tam- 
bem armazena estas mensagens, que fl- 
eam guardadas para eventuais consultas 
posteriores. 

Na opiniSo de Coimbra, no processo 
de automa9ao de escritorio, o usuario 
devera fazer uma utiliza9§o inteligente 
dos equipamentos de que dispde. Como 
exemplo, ele cita a integra9ao do micro 
com o sistema de PABX, para aproveitar 
os cabos de linhas telefonicas. Coimbra 
afirma que os modernos equipamentos 
de PABX vao permitir que se transmita 
atraves deles alem da voz, tambem da- 
dos e ate imagens, com a implanta9ao 
do fac-simile. 0 fac-simile e um equipa- 
mento que, acoplado ao telefone, fun- 
ciona como uma copiadora a distancia, 
permitindo a transmissao e recep9ao, 
tanto de textos como de imagens. 

Para Jorge Coimbra, os trabalhos que 
mais se transformam no escritdrio auto- 
matizado sao basicamente a prepara93o 
e o encaminhamento de corresponden- 
cia. Al£m disso ele acredita que essa mu- B 
dan9a ocorra mais a nivel qualitative do* 
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NO PRESENTE, O ESCRITORIO DO FUTURO 



que quantitative, jd que o novo escrito- 
rio conta com mais recursos, o que pos- 
sibilita maior qualidade no produto final 
da empresa. 

Coimbra nao acredita que a automa- 
9§o de escritorios venha a gerar dispen- 
sa de funciondrios. Os empregados de- 
verao ser treinados para as novas fun- 
$oes que passarao a executar. Alem dis- 
so, ele ressalta a gerasdo de empregos na 
industria fornecedora dos equipamentos 
que compoem o escritdrio automatizado. 



" Adquirimos 
o hardware sew 
nos preocupar 
com o software 
e acabamos 
com um el ef ante 
branco'' 



E m fevereiro de 1982 , MICRO 
SISTEMAS publicou uma ma- 
teria sobre o Escritdrio do Fu- 
turo, abordando o caso da Ju- 
sinformdtica, uma das primeiras em- 
presas no Brasil a automatizar seu escri- 
tdrio (veja MS n 9 5 , pdg. 45 ). A Jusin- 
formdtica d uma empresa de presta^ao 
de servigos na drea de mercado de capi- 
tals, voltada principalmente para o in- 
vestidor da Bolsa de Valores. Hoje, qua- 
se dois anos depois, Pedro Chaves Neto, 
diretor presidente da Jusinformdtica, 
considera seu escritdrio o do presente, 
ressaltando que a maioria dos escritd- 
rios ainda sao do passado e, com conhe- 
cimento de causa, faz uma avalia9§o do 
processo de automa^ao, do tipo descen- 
tralizada, pelo qual passou sua empresa. 

0 escritdrio da Jusinformdtica come- 
90 U a se automatizar em 80 , quando foi 
feito leasing para aquisi9§o de um pro- 
cessador de texto e, na mesma e'poca, 
foi instalada uma mdquina copiadora e o 
sistema KS de telefone. Alguns meses 
depois, a diretoria alugou um microcom- 
putador, que seria utilizado para banco 
de dados da empresa e tambem para 



processar a contabilidade. Hoje, Pedro 
Chaves Neto avalia que a aquis^ao do 
micro naquela epoca foi superdimensio- 
nada: “Adquirimos o hardware sem nos 
preocupar com o software, e acabamos 
ficando com um elefante branco”, afir- 
ma ele. Com algum tempo de uso pode 
ser constatado que o equipamento era 
pequeno para o banco de dados que es- 
tava sendo organizado, e grande demais 
para os servi£os de contabilidade que o 
escritorio exigia. 0 resultado foi a devo- 
lu9ao do micro e os serv^os foram en- 
t 5 o repassados a empresas especializa- 
das. A contabilidade 6 feita atualmente 
por um bureau e, para o banco de da- 
dos, a Jusinformdtica passou a alugar es- 
pa90 no computador da Telesp, com 
acesso de dados atravds do videotexto, 
do qual a empresa aldm de usuaria 6 
tambdm uma das primeiras fomecedo- 
ras de servi9o. Em breve pretendem li- 
gar uma impressora ao terminal de vi- 
deotexto para imprimir os pr6prios ser- 
vi90S da Jusinformdtica. 

Um outro passo dessa automa9ao 
descentralizada adotada pela Jusinfor- 
mdtica foi passar o servi9o de a9oes es- 
criturais para o Banco Itau, que agora 
administra tanto as a96es que a Jusin- 
formdtica possui de outras empresas, 
bem como as dos acionistas da Jusinfor- 
mdtica. 0 Poly 101 HS, processador de 
textos da Polymax, continua sendo usa- 
do no escritdrio, entre outras coisas pa- 
ra fazer atas de assembles. Tambdm o 
telex instalado no processo de automa- 
9§o do escritdrio continua em pleno 
funcionamento e Pedro Chaves Neto cita 
ainda alguns implementos que. segundo 
ele, fazem parte do escritdrio do futuro: 
o aparelho de bip para recados, o Tele- 
card, um cartao para interurbanos a co- 
brar que sao debitados diretamente na 
conta da empresa (“evita filas e abor- 
recimentos para se fazer interurbanos”) 
e um pequeno gravador de bolso para 
gravar as iddias que se tern em horas e 
locais impossiveis de se tomar nota co- 
mo, por exemplo, quando se est 4 diri- 
gindo. 

Pedro Chaves jd tern pronto, inclusi- 
ve, um projeto elaborado em conjunto 
com o arquiteto Henrique Cambiagui 
Filho para o verdadeiro escritdrio do 
futuro, que segundo ele deve ser com- 
posto por uma a9§o integrada de arqui- 
tetura. Este projeto preve um predio de 
dois andares em forma de estrela com 
pontas e uma drea central (veja a figura 
1 ). Esta drea seria um espa90 de apoio, 
onde estariam todos os serves bdsicos. 



tais como maquinas copiadoras, telex, 
central telefonica, equipamento de mi- 
crofilmagem e um computador central. 
Comportaria tambem um auditorio, ins- 
tances sanitarias e servi9o de copa. 

Nas pontas que compdem a estrela 
seriam instaladas empresas associadas ou 
mesmo departamentos de uma mesma 
empresa, que fariam uso da estrutura do 
mddulo central, o que viria a amortizar 
o custo dos servi9os. Como explica Pe- 
dro Chaves Neto, seria uma vida em con- 
dominio, ou um flat service empresarial. 

0 projeto contaria tambem com um 
sistema pneumatico de circula9ao inter- 
na de documentos. Este sistema, que 
existe na Fran9a desde o irn'cio do sd- 
culo, 6 composto por tubos com cdp- 
sulas nas quais sao colocados os docu- 
mentos, que atravds de pressao sdo en- 
viados d sala a qual se destinam. Tam- 
bem esta previsto que cada unidade, no 
caso, cada empresa ou departamento, 
possua um microcomputador multitare- 
fa, que aldm de exercer as fun96es de 
micro, funcionaria tambem como pro- 
cessador de texto, terminal de telex, lei- 
tor de videotexto e terminal de video 
ligado ao computador central. 

0 escritorio do futuro estd pronto 
em projeto, mas ainda nao pode ser con- 
cretizado porque esbarrou numa ques- 
tao bdsica: o custo. A dificuldade estd 
em encontar um terreno que comporte 
o prddio, numa zona de facil acesso aos 
clientes e a um pre90 acessivel. E isso 
toma-se cada vez mais dificil nas gran- 
des cidades. 

Como foi dito anteriormente, a op- 
9§o por um processo de automa9§o cen- 
tralizado ou descentralizado ird se ba- 
sear na politica adotada pela empresa. 
No caso da IBM, o processo gira em tor- 
no do computador de grande porte ao 
qual estao ligados terminais, operando 
no sistema PROFS - Professional Offi- 
ce System. Este sistema de automa9ao 
de escritorio foi desenvolvido nos Es- 
tados Unidos ha cerca de cinco anos e 
em 1981 profissionais da IBM do Bra- 
sil come9aram a realizar estudos para 
implanta9ao do PROFS aqui. Na sede da 
empresa no Rio de Janeiro, 80 termi- 
nais de video ja estao ligados ao compu- 
tador central, um 4341 . Este computa- 
dor central gerenciava, at£ final de ju- 
nho, os terminais instalados na sede da 
empresa, em Sao Paulo, ainda em fase 
de implanta9ao do PROFS. Hoje, os ter- 
minais da filial paulista da IBM ja sao 
controlados pelo computador central do 
prdprio prddio onde estao instalados. 



72 



MICRO SISTEMAS, agosto/84 






" E essential 
que todos os 
usuarios estejam 
ligados a uma 
unica UCP e possum 
se com uni car 
entre si" 



P ara Robert Joseph Didio, repre- 
sentante de Apoio a Marketing 
da IBM Sao Paulo, e essencial, 
dentro do conceito de automa- 
920 de escritdrio, que todos os usuarios 
estejam ligados a uma unica UCP, e pos- 
sam se comunicar entre si. “A eficien- 
cia do sistema pode ser verificada pro- 
porcionalmente 2 quantidade de pessoas 
que podem compartilha-lo”, diz ele. 

No banco de dados central da empre- 
sa estao armazenados todos os docu- 
ments gerados pelos terminals. Cada 
usuario do sistema possui um l'ndice 
pessoal que informa a quais documentos 
ele pode ter acesso, geralmente aqueles 
que ele prdprio emitiu, foi o destinatd- 
rio ou recebeu copia. Assim, fica manti- 
do o sigilo do sistema. 

A implanta9ao do PROFS na IBM 
brasileira come90u pelo Rio e os primei- 
ros terminals foram dados as secretarias 
executivas, com os executivos utilizan- 
do-os indiretamente. Didio ressalta que 
nao se deve for9ar o usuario a mudar seu 
mdtodo de trabalho, pois isso pode aca- 
bar sendo prejudicial. E cita um fato 
ocorrido nesta primeira fase de implan- 
ta9ao do sistema, quando em um grupo 
de tres secretarias que trabalham em um 
mesmo departamento, duas se adapta- 
ram rapidamente ao uso dos terminals 
e a terceira preferiu manter o antigo 
mdtodo de trabalho. Depois de algum 
tempo, ao observar as facilidades de- 
correntes da utiliza9ao dos terminals, 
a terceira secretaria resolveu aderir tam- 
b£m 2 nova tecnologia. 

Didio destaca que 6 importante ter 
disciplina na implanta9ao do sistema - a 
chamada gerencia de mudan9a - que in- 
clui a prepara9§o para a mudan9a, o 
treinamento e a padroniza9ao dos do- 
cumentos da empresa. Desta forma nao 
h2 descontinuidade entre o sistema an- 
tigo e o que esta sendo implantado. 



A etapa seguinte foi a implanta9ao 
de terminais para um conjunto de pro- 
fissionais. Hoje, em Sao Paulo, cerca de 
dez secretarias ja utilizam o sistema. ca- 
da uma delas atendendo a tres ou qua- 
tro gerentes que indiretamente tambem 
fazem uso do PROFS. E segundo Didio, 
dentro de dois anos a maioria dos fun- 
cionarios passara a integrar o projeto. 

0 sistema PROFS e dirigido priori- 
tariamente 2 profissionais e gerentes. Se- 
gundo estudo realizado nos Estados Uni- 
dos, 13 % do tempo do gerente e utiliza- 
do em atividades criativas, sendo os ou- 
tros 87 % deste tempo gastos na prepa- 
ra9ao para tais atividades. E justamente 
um dos objetivos principais da automa- 
920 de escritdrio 6 aumentar o tempo 
dedicado 2s atividades pensantes. 

Para entrar no sistema, cada usuario 
tern sua senha, conhecida apenas pelo 
administrador do sistema. Por exigen- 
cia do prdprio sistema, esta senha deve 
ser alterada a cada 30 dias. Entrando 
com a senha, o usuario pode utilizar 
qualquer um dos terminais autorizados. 
Depois de verificada a senha, aparece 
na tela o menu com as fu^oes disponi- 
veis, entre as quais a fun9ao HELP, para 
esclarecimento sobre qualquer uma das 
demais fun9des. 

Na agenda, os compromissos do dia 
s2o projetados na tela em ordem crono- 
logica. Outros usuarios podem ser auto- 
rizados a ter acesso a determinada agen- 
da, mas em caso de compromissos con- 
fidenciais estes s2o bloqueados. 0 acesso 
de outros usuarios tern como objetivo, por 
exemplo, marcar uma reuni 2 o. No caso. 
o sistema providencia a verifica9ao das 
agendas dos usuarios que devem partici- 
par da reuni2o e indica ao solicitante as 
op9Ses de dia e hora mais adequadas a 
todos. 

0 conhecido sistema de malote tam- 
bdm faz parte do PROFS, so que ele- 
tronicamente. O malote recebido perma- 
nece na caixa de entrada, listado por au- 
tor e assunto na seqiiencia de chegada, 
ate que seja aberto e lido, e entao arma- 
zenado, despachado ou descartado. Uma 
outra fun92o do sistema e o arquivo de 
documentos pendentes, que recebem 
uma data referente a quando devem ser 
tomadas providencias a respeito. Os do- 
cumentos a serem guardados no sistema 
sao indexados por data, autor, assunto 
e palavra-chave , o que facilita a pesqui- 
sa atravds de qualquer um desses itens. 

Outras fun9oes do PROFS incluem 
prepara92o de memorandos, distribu^o 
eletronica de documentos e revis2o, 



atravds de um dicionario interno com 
cerca de 150 mil palavras, disponivel 
por enquanto somente em Ingles, que 
verifica se a palavra esta escrita correta- 
mente; caso n2o esteja, o prdprio siste- 
ma fornece a grafia correta. 0 PROFS 
permite ainda que se mande mensagens 
para sedes da empresa em outros estados 
ou mesmo outros pai'ses que utilizem o 
mesmo sistema. 

E refor9ando o que foi dito por Jorge 
Coimbra, Didio afirma que, observando- 
se o escritorio do passado e o de hoje, 
pode ser constatado que o processo n2o 
mudou, mudaram apenas algumas ferra- 
mentas. “N 2 o houve na realidade mu- 
dan9as significativas no modo de traba- 
lho, sd evoluiu a tecnologia das ferra- 
mentas, e o objetivo da automa9ao de 
escritdrio n2o e introduzir mais uma fer- 
ramenta, mais sofisticada, e sim mudar o 
enfoque”, conclui. ■ 



Texto: Stela Lachtermacher 
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MICRO FESTIVAL 84 



O mercado amadurece 



U m usuario mais experiente, que chega 
em busca dc solu^ao para um proble- 
ma especi'fico (por exemplo, uma 
Contabilidade com tantos lani;amentos e tal 
piano de contas), em vez de estar preocupado 
apenas com as caracten'sticas do equipamen- 
to. Assim Marco Antonio Rossi, gerente de 
vendas da Unitron, classificou, de modo geral, 
o publico que visitou o estande da sua empre- 
sa no Micro Festival, realizado de 4 a 7 dc ju- 
Iho no Centro de ConvenySes do Hotel Na- 
cional, no Rio de Janeiro, identificando ncssa 
atitude uma demonstra^ao de maturidade en- 
tre os compradores de micros. 

Marco Antonio, alias, nao foi o linico ex- 
positor satisfeito com os rcsultados da Feira. 
Eduardo Pamos e Marcelo Batista, respectiva- 
mente, da Sysdata e da Digitus, ambos fabri- 
cantes, bem como Paulo Roberto Zornig, da 
loja Comicro, entre outros, tambem concor- 
daram com Ernesto Camelo, dirctor da Com- 
pumicro, outra loja carioca. para quern o pu- 
blico de aproximadamente 15 mil pessoas que 
la esteve nos quatro dias de exposi^ao foi 
“tanto rjuantitativa quanto scletivamcnte mui- 
to bom’’. 



A FORQA DO SOFTWARE 




O microcomputador Senior S-100, da Racimec, em duas vers6es : port a til, com tec lad o 
simplificado e visor de cristal liquido na tampa (esq.) e para uso na empresa, com video de 
fdsforo verde e teclado profissional. A direita, a nova impressora Carla, de 40 colunas e 120 cps. 



E ssa procura por solutes levou os visi- 
tantes em dire^ao ao software e aos ser- 
vi<;os, amea 9 ando bastante a tradicional 
hegemonia do hardware sobre as atcn<; 6 cs. Al- 
guns produtos mostraram-se verdadeiros “cam- 
peSes de bilhcteria”, como foi o caso do siste- 
ma de gereneiamento de dados dBase II, que 
lotou a tal ponto o auditorio onde se rcaiizava 
uma palestra a seu respeito, que obrigou os 
promotores do evento a reeditarem a palestra 
em outro horario para dar oportunidadc aos 
que ficaram dc fora. Na Feira, o d Basse II 
tambem atraiu gente para muitos estandes. 

A for^a do software — que, no fundo, e o 
principal responsavcl pclo sucesso de vendas 
de qualquer equipamento - ja sc esta fazendo 
sentir junto aos fabricantes. A Unitron, por 
exemplo, aproveitou a ocasiao para lan<;ar o 
Unitron Software, marca sob a qual a empresa 
comcrcializa programas cxistentes no mercado 
que, apos testados e homologados, recebem 
um tratamento de produto Final (documenta- 
9 S 0 , cmbalagem etc.) e sao vendidos pela rede 
de distribuidores da empresa. A Unitron, po- 
rc'm. nao para at: esta elaborando um catalogo 
geral com todos os programas disponiveis no 
mercado e compati'vcis com o seu equipamen- 
to, da linha Apple. 

Outros fabricantes tambem proclamaram a 
quantidade de software de que dispoem os 
seus computadores, tais como a Cobra (mais 
de 150 aplicativos para os modelos 305 e 210) 
e a Itautec (cerca de 160, para o 1-7000 e seus 
“filhos", o Junior e o Junior E). Isso sem falar 
na possibilidade de rodar programas compatt- 
veis com o CP/M (facilidade essa ja oferecida 
como caracteristica standard ou opcional por 



diversas marcas), o que da acesso a maior 
bibliotcca de software existente em todo o 
mundo. 

Dentro das famfiias espcci'ficas de equipa- 
mentos, a linha Apple continua com a lideran- 
9 a. com a maior oferta dc programas para as 
mais variadas finalidadcs. e cad a soft house 
csfor 9 a-se para criar caracten'sticas capazes de 
distinguir o seu produto numa verdadeira flo- 
resta dc folhas de pagamento, contabilidade, 
controle de estoque etc, ou, ainda, exploran- 
do o filao das aplica 9 dcs muito espcci'ficas ou 
dos programas sob medida. 

Completando o quadro, viu-se ainda no 
Micro Festival a difusao e a procura cada vez 
maior dos softwares considerados fundamen- 
tal para todo usuario de micro: a planilha elc- 
tronica (Visicalc e seus seguidores), o sistema 
de gereneiamento de banco de dados (como 
o dBase II). processador dc texto (Wordstar, 
Super Scripsit etc.) e os sistemas com boa re- 
soIu 9 ao. para fazer graficos. 

A EXPANSAO DOS 16 BITS 

O software, tambem pelo que se pode ob- 
servar no Hotel Nacional-Rio, esta aju- 
dando os microcomputadores de 16 
bits a se firmarem no mercado, ajuda essa que 
deve ser creditada, em grande parte, a um pro- 
grama bastante especial: o Lotus 1,2,3, pode- 
rosa combina 9 ao de planilha eletronica, gera- 
dor de graficos e gerenciador de arquivos. 
Alem dos fabricantes, diversas empresas de- 
monstraram programas para compativeis com 
IBM PC, tais como a Clappy, a Compucenter 
e a Computique. 

O fa to e' que os micros de 16 bitsestao gra- 



dativainentc ganhando terreno. Ja sao seis as 
marcas disponiveis - Ego, da Softcc; Nexus, 
da Scopus; Link 727, adquirido cm OEM da 
Microtec e comcrcializado pela Link (esses 
tres primeiros mostrados no Micro Festival); 
PC 2001, da Microtec; Z-2200, da Zanthus; 
Racimec M 101 - c ate o final do ano o "clu- 
be dos 16 bits" devera receber importantes 
adesSes, como a da Itautec, conforme assegu- 
rou Fernando Ferranc, no estande dc empre- 
sa. “Ano que vem, muitos fabricantes vao 
soltar projetos" nessa area, previu Robert 
Janis Katgevics, da Cientffica, representante 
Brascom no Rio dc Janeiro, adiantando quo 
entre essas firmas encontra-se tambe'm a 
Brascom. 

Alem dos micros de 16 bits, outra forte 
tendencia do mercado brasileiro diz respeito 
as redes locais c, nesse sentido, nao faltaram 
exemplos no Micro Festival. A come 9 ar pela 
Cctus. empresa independente especializada 
no assunto. Utilizando uma topologia serial 
em BUS, que permite total desccntraliza 9 ao 
e independencia dos elementos que a corn- 
poem, a rede Cetus permite interligar ate 
255 computadores e perife'ricos dos mais di- 
ferentes tipos (micros de variadas tecnologias, 
disquetes, discos rigidos, impressoras seriais e 
de linhas), possibilitando que os computado- 
res falcm entre si. troquem arquivos e aees- 
sem arquivos comuns. 

Quanto aos fabricantes, um numero cada 
vez maior deles esta incluindo na sua rela 9 ao 
de produtos a possibilidade da formatjao de 
redes, de variados portes e caracten'sticas. 
Desta vez, foram a Prologica e a Digitus, que 
vieram juntar-se ao circulo ja formado pela 
Scopus, Dismac e Polymax. A Brascom lan 9 a 
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Foto Mfinca I eme 




O JR III da Sysdata tern 
tecl ado professional, e 
compativel com o TRS-80 
modelo III e pode rodar 
CP/M 2.2 com interface. 

0 modelo anterior. JR /, 
continua em sua versdo 
econo mica, mas pode 
transform ar-se no JR III com 
a adiqao de uma placa de 
circuito. 



a sua em outubro. 

Destinada a interligar (por enquanto. oito; 
futuramente, ate 255) computadorcs do tipo 
Sistcma-700 ou Super 700 compartilhando 
um grande arquivo de dados em disco ri'gido, 
a rede Pronet, da Prologica, consiste basics* 
mentc de um gerenciador com disco ri'gido 
de 10 MB. um controlador e um processador. 
Ale'm de acessarem o arquivo central (cuja 
capacidadc devera subir ano que vein para 
96 MB), as divcrsas estates de trabalho po- 
dcm trabalhar, em processamento local, com 
seus proprios disquctes. imprcssora e plotter. 

Ja o equipamento lam;ado pela Digitus - 
o Digiplex - permitc montar uma rede cm 
anel com ate 17 micromputadores DGT-1000 
operando em modo multiusuario, com os di- 
versos computadorcs (memoria minima de 
16 K RAM) funcionam como terminals inte- 
ligentcs acessando os arquivos em disco (ate 
1.4 MB) da unidade central. A rede possibi- 
lita ainda que os seus elcmentos comparti- 
lhem uma impressora comum ou que cada 
um trabalhe com a sua propria imprcssora. 

Ainda no ambito das redes - neste caso, 
as de teleprocessamcnto - a Embratel apre- 
sentou o Servi<,-o Cirandao. que consiste de 
basicamcntc quatro servi^os: Comunicaqao 
entre Usuarios, nas modalidadcs mensagens 
(correio e sccretaria eletronicos), quatro de 
avisos (guarda avisos que os usuarios recc- 
berao ao entrarem em contato com a rede) 
c mercado eletronico (ofertas de compra 
e venda de produtos e servi<,os); Informa- 
<;ao (acesso a bases e bancos de dados natio- 
nals abertos ao publico). Programas (possibi- 
lita ao usuario guardar os seus programas nos 
arquivos em disco da Embratel ou adquirir 
programas desenvolvidos por software houses 
e comcrcializados via Cirandao) e Suporte ao 
Usuario (informa^des, reclama^oes etc., bem 




Disk drives Horacio F500-CP, da E'lehra, com 
controlador e ferragem para adaptafdo no 
CP-500. 



como o diretdrio do usuario, que fornece o 
nome de todos os integrantes da rede e seus 
respectivos numeros de endere^amento). 

O acesso ao Cirandao sera feito at raves 
da rede tclefonica comutada. da Renpac - 
Rede Nacional de Comutayao de Pacotes (a 
iniciar sua opera^ao comercial no fim do ano) 
ou da Rede Nacional de Telex, c os valores a 
serem pagos pelos usuarios irao cnglobar os 
custos das telecomunica<;5cs, do Cirandao 
propriamentc dito c das informatics ou pro- 
gramas fornecidos por terceiros. 

LAN^AMENTOS 

O Micro Festival do Rio de Janeiro nao 
apresentou muitos lam;amentos. Afi- 
nal. conforme desabafou Marcelo Ba- 
tista. da Digitus, “ha feiras demais” atualmcn- 
te, e os fabricantes nao conseguem produzir 




DGT-1000 
com a unidade 
Digiplex, que 
permit e usar o 
computador da 
Digitus no 
modo 

multiusuario, 

com 

compartilha- 
mento de 
discos. 



novidades importantes, em ritmo t5o acelera- 
do. Examinando a situagao por outro angulo, 
Fernando FerTanc. da Itautec, questiona ate 
que ponto esse excesso de feiras cometjara a 
cansar o publico. Assim, todos guardam os 
seus principals trunfos para o Congrcsso/ 
Feira da SUCESU, o maior e mais competi- 
tive evento do setor. 

Isso, contudo, nao impediu que se vissem 
coisas novas e intcrcssantes na Feira do Hotel 
Nacional. A Elebra. por cxemplo. mostrou o 
modulo Tipograph, que confere capacidade 
grafica bit image (imprime tu'do que estiver 
na tela: textos, dcsenhos etc.) e qualidadc car- 
ta a imprcssora Monica. Lant;ou ainda o Hora- 
cio F500-CP (unidade de disco flexivel de 
5 1/4" ja montada com controlador e ferra- 
gem propria para instalai^ao no CP-500, da 
Prologica) e liberou para comercializaqao a 
partir de agosto pelos seus revendedores os 
drives Horacio TR (TRS-80) c AP (linha 
Apple), antes vendidos apenas cm OEM. 

A Brascom mostrou, alem do scu possan- 
tc sistema BR 1000 multiusuario, tres pro- 
messas: a rede local, prevista para outubro. o 
microcomputador Foxy (a scr lan^ado em 
agosto c que devera funcionar como terminal 
intcligentc tanto do sistema multiusuario 
quanto da rede) c o sistema grafico de alta 
resoluyao com ate 4096 cores selecionavcis, 
que devera chegar aos seus primeiros usuarios 
ano que vcm. A Sisco mostrou o MS800, mi- 
cro monousuario com 128 KB de memoria, 
video intcligentc controlado por micropro- 
cessador 8085, com 20 K de memdria RAM. 
dois disquetes de 5 1/4" e compatibilidade 
com CP/M 2.2. Para setembro, a empresa 
pretende colocar no mercado uma unidade 
winchester de 5 ou 10 MB. 

Na area de suprimentos, a Supply lanyou 
a maquina Perfect Data modelo 200 para lim- 
peza e recondicionamento de disquetes (dis- 
ponivel a partir de agosto), os kits Perfect 
Data para limpeza de micros e drives, os dis- 
quetes (8" c 5 1/4") e fitas magneticas (600, 
1200 c 2400 pes) inarca MAC 1000 e a mala 
para transportar um micro tipo Apple com ate 
duas unidades de disquetes. A Verbatim mos- 
trou sua linha de discos flcxiveis c fitas mag- 
neticas fabricados em Manaus. 

No estandc da Prologica, tres novidades: 
Didata 16. que permite a um professor, atra- 
ve’s de um CP-500, monitorar ate’ 16 alunos 
operando em CP-300; c Superfile, disco win- 
chester de 5 ou 10 MB que substitui o Speed 
File baseado em RAM e descontinuado pela 
empresa em virtude do seu alto preyo. O CP- 
500 tambem ganhou novos disquetes de du- 
pla face e densidade dupla. 

Uma versao simplifleada e mais barata, 
destinada a uso escolar, mas mantendo a 
compatibilidade com o Apple II Plus. E o 
Elppa Jr., com memoria de 16 a 48 K e tecla- 
do mais simples, que a Victor do Brasil levou 
ao Micro Festival. A Microdigital, por sua vcz, 
lanyou uma serie de jogos para os TKs 83 e 
85 (Pulo do Sapo - 16K)cTK 2000 Color 
(Ataque , Bombardeiro, Corrida, Papa Tudo e 
Pulo do Sapo, todos disponiveis em fita cas- 
setc ou disquete). A empresa mostrou ainda 
a interface para impressora destinada aos TKs 
83 e 85 e prometida para fins de julho; a in- 
terface de disquete para o TK-2000 Color; o 
videogame Onyx e o prototipo de um grava- 
dor de EPROM para as linhas 83 e 85. Ja a 
Itautec apresentou a familia 1-7000, com 
enfase para o Junior e Junior E, que ganhara, 
a partir de outubro. discos rigidos winchester 
de 10 MB ■ 



Texto: Ricardo Inojosa 
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Se voce tem pequenas rotinas e programas utilitirios 
realmente uteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos pi rata s e trate de divuIgS-los. En- 
vie-os para a REDAgAO DE MICRO SISTEMAS -SEQAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Nao se esque^a de dizer 
para qua I equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderS ser util para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



TRS 80 



Conversao de endereqos 



A maioria dos iniciantes tem dificuldade para compreen- 
der a ordem inversa da representa^o dos bytes de um ende- 
re^o na forma LSB/MSB. Um exemplo de utilizafao desta re- 
presenta9ao 6 a maneira de informar ao computador o ende- 
re90 de inicio de uma sub-rotina em linguagem de m^quina: 
POKE 16526, LSB.POKE 16527, MSB. 

Existem virias maneiras de fazer a conversao de um ende- 
re90 decimal para a forma LSB/MSB, mas uma em especial se 
destaca pela t^cnica usada para transferiro trabalhoao micro: 

100 INPUT "ENDERECO A CONVERTER A 
110 A% = A + 65536 * (A >32767) 

120 N=VARPTR ( A% ) 

130 POKE 16526, LSB : POKE 16527, MSB 
ou 

130 PRINT LSB , MSB 



O segredo desta forma de conversao estd na linha 120: na 
linha 1 10 o valor 65536 sera ou nao subtraido automatica- 
mente de A se o valor de A for maior ou n5o que 32767 (veja 
a dica “Substitua o IF-THEN”, Se9ao Dicas de MS n9 25) e o 
resultado armazenado na varidvel inteira A%. Como as varii- 
veis inteiras sao armazenadas em apenas dois bytes - LSB/ 
MSB — , basta descobrir o endere90 N de A% na memoria, 
atrav^s da fun9ao VARPTR: o LSB estara na posi9ao N e o 
MSB na posi9ao N+l. 



Roberto Quito de Sent'Anna — RJ 
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Multicurvas 



Fa9a mil curvas no seu video com esta dica em FAST : 
ap6s dar o RUN, entre com o niimero de STEP dos la9os 
FOR-NEXT do programa e espere um pouco para ver o 
resultado. 



SINCLAIR 



Atiule o RAND USR 837 

J i foram publicadas varias dicas para proteger ou 
.desproteger programas em micros da linha Sinclair. 
Uma delas “Abria” programas protegidos usando o 
comando RAND USR 837. Esta dica que apresento 
anula o comando RAND USR 837 e toma o progra- 
ma novamente protegido. O procedimento 6 o seguin- 
te: em vez de utilizar o comando SAVE, use o RAND 
USR 757. Por exemplo, um programa assim: 

9900 SAVE “PROG” 

9910 RUN 
ficaria desta forma 
9900 FAST 
9910 RAND USR 757 
9920 SLOW 
9930 RUN 

sendo que assim, mesmo usando-se o comando RAND 
USR 837 ao invds do LOAD “ ” , o programa conti- 
nuara rodando e nao iii parar com a Mensagem de 
Erro. 



Ricardo Colldrio — RS 



10 PRINT "QUAL 0 NUNER0 DE STEPS?" 
20 INPUT S 
30 CLS 

40 FOR F=0 TO 250 STEP S 
50 LET X=.1#F*C0S(F) 

60 LET Y=.1#F#SIN(F) 

70 PLOT X+20 , Y+20 
80 NEXT F 



Adriano Pascoal Pereira — RJ 
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Descobrindo o autor 

Entre numa de detetive, e descubra o verdadeiro autor do 
seu DOS com esta simples dica: CMS “& ” & 



Antonio Passos Cavalcanti — PR 
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Linha TRS 80 | Linha SINCLAIR 



Logotipo em programas 



Coloque logotipos ou desenhos caracteristicos de sua 
empresa em seu programa, ou mesmo suas iniciais artistica- 
mente desenhadas , com esta dica: 

65000 V1A=VARPTR<CS> 

65010 V2A=PEEK (VIA )-l I V3A“256»PEEK ( VI A*2)*PEEK ( VI A+l > 

65012 ZX»192+ < 64-V2A) 72 s CLS t PR INT3ZX , » : V6A=V3A+V2A 

65030 FOR V4A=V3A TO V6AIPRINT CHR* ( PEEK < V4A )) | * NEXT 

65060 ZX“ZX-1 s V5A=1 SFOR V4A=V3A TO V6A 

65062 PRINT3650,"N0V0 CODIGO ASCII DA POSICAO N"iV5A| 

65063 INPUT N* IF N<128 OR N>191 PR INT3686 , " "‘GOTO 65062 

65064 PRINT3<ZX+V5A) , CHRKN) j 

65070 PR INT3686 , " "‘POKE V4A,Ns V5A=V5A*1 SNEXT 

Para usd-la, carregue o seu programa; mas antes defina as 
Strings de tamanho apropriado necessarias fcomo, por 
exemplo: AS = “1234567890”); digite (ou MERGE) as li- 
nhas dadas na dica; execute o programa uma vez e, ao apa- 
recer READY, substitua sucessivamente o nome String AS 
da linha 65000 pelos nomes das Strings do seu programa a 
serem modificadas. Apos cada substitui^ao da linha 65000, 
digite (SEM COLOCAR NUMERO DE LINHA): 

GOTO 65000 < ENTER > 

e de os codigos desejados entre 1 28 e 191 (observe as modi- 
fica$6es na String, olhando na parte superior da tela). Ao 
terminar, liste o programa, confira, repita se for necessdrio, 
delete as linhas 64999 em diante e SAVE ou CSAVE o seu 
novo programa. 

Uma ultima observa9ao aos que acharem estranho os 
nomes utilizados nas varidveis desta dica: d proposital para 
evitar que as varidveis de seu programa coincidam com o 
nosso. 



Roberto Quito de Sant'Anna - RJ 
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Liste os comandos 

Para obter uma listagem na tela de todas as palavras 
reservadas do COLOR BASIC e do Extended COLOR 
BASIC, basta executar este programa : 

1 CLS : W=1087 :F0RC=1T03 : READL1 , L2 

2 F0RK=L1T0L2:U=U+1 :POKEU,PEEK<K>+ 
(PEEK (K ) > = i28)#i28sNEXTK r C 

3 DATA 43622,43878,33155,33263,333 
10.33366 



Trocando caracter 

Troque, com esta dica em Linguagem de Mdquina, 
todos os caracteres do video que forem iguais aos do 
endere^o 16524 pelo caracter do endere?© 16528. Essa 
rotina pode ser colocada em qualquer posi9ao da me- 
moria. id que ndo utiliza endere9amento absoluto. 

16514 2A OC 40 23 06 16 OE 20 

16522 7E FE 08 20 02 36 80 23 

16530 00 20 F5 23 10 FO C9 



Ricardo Souza Viana ■ BA 
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Catendrias multiplas 

Desenhe varias curvas no seu micro, simulando a figura da 
Geometria Analitica, a Catenaria, com este programa: 



i 0 REM "C" 

20 CLS 

30 PR INT^ESCOLHER 0 STEP (>=i) 
NPUT S s IF S< i THEN 30 
40 PR INT^ESCOLHER r A r INICIAL 
) // - s INPUT Q : IF Q<i THEN 40 
50 PR INT^ESCOLHER r A r FINAL (< 
0>"- : INPUTWs IF W>5000 THEN 50 
60 CLS s FOR 1=0 TO 831 : PR INTOI , 
NEXT I 

70 FOR A=Q TO U STEP S 
80 PRINT3823 y / ''A= s " / «A; 

90 FOR X=1 TO 63 
100 Y=(A/2)*(EXP(X/A)+EXP(-X/A 
110 D=35+A-Y:G=X+63:H=63-X 
120 IF G > 1 27 OR H<0 THEN 160 
130 IF D< 2 OR D >42 THEN 160 
140 SET < G r D ) s SET ( H , D > 

150 NEXT X 
160 NEXT A 

170 PRINTo)896, "CATENARIA Y=< 

*<EXP (X/A)+EXP <-X/A) )" 

180 GOTO 30 



< > = 1 



A/2 ) 



Gera Ido Simonetti Bello — RJ 
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Arredonde para o mats proximo 

Muitas vezes precisamos arredondar um numero para o numero mais proximo, 
mas nosso equipamento nao aceita esta aproxima9ao, pois os micros da Linha Sin- 
clair arredondam sempre para um numero menor. Assim, se pedirmos. por exem- 
plo, INT 2.9, o micro respondera 2, e nao 3, como seria mais 6bvio. 

Uma S0IU9S0 6 tornarmos o argumento (da fun9§o INT) negativo, pois desta 
forma invertemos o conceito e o que era menor passa a ser maior, jd que o numero 
€ negativo: — INT (2.9)=3. 

Salomao M. Barguil ■ PA 
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Curso 

Assembler 




N 

A. ^esta lifao vamos descrever o ultimo grupo de instru- 
95es do microprocessador Z80, ou seja, o grupo de Entrada e 
Saida. Este grupo de instru^Ses 6 utilizado para a comunica 9 ao 
com peritericos mapeados por I/O (lembre-se que os endere 90 S 
em um microprocessador podem ser mapeados por memdria 
ou por I/O). Vejamos entao cada uma das instru 9 des. 

1 — Input para Acumulador 
Formato: TN a, (n) 

Operagao: 0 byte contido na porta n 6 transferido para o regis- 
trador A (Acumulador). 

Codigo Objeto: 



IN a , ( 


n 


) 


110 1 


1 


Oil 


n n n n 


n 


n n n 


1 1 1 L 




-i i i 



Descrigdo: 0 numero da porta (que iri variar sempre de 0 a 
225) i especificado no operando n. 0 dado existente na porta 
n 6 transferido para o Acumulador. 

Instrugao: IN a,(n) 

Ciclos de mdquina: 3 
States (T): 1 1(43,4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteudo do Acumulador 6 23H e o byte 7BH 
esti disponivel no periterico cujo endere 90 mapeado por I/O 6 
01H, apds a execu 9 ao da instru 9 ao IN a, (01H) o conteudo do 
Acumulador ser2 7BH. 

2 — Input para Registrador 
Formato: IN r, (C) 

Operagao: 0 byte contido na porta cujo endere 90 se encontra 
no registrador C 6 transferido para o registrador r. 

Cddigo Objeto: 



IN r , ( C ) 



1110 11 


0 


1 


0 1 r r r 0 


0 


0 



onde rrr pode assumir os valores que estfo na figura 1 . 
Descrigdo: 0 registrador C cont&n o numero da porta da entra- 
da. 0 dado 6 transferido do dispositivo de entrada cujo ende- 
re 90 se encontra no registrador C para o registrador r. 
Instrugao: IN r,(C) 

Ciclos de mdquina (M): 3 
States (T): 12(4,4,4) 

Flags afetadas: S — setada se o dado 6 negativo; senSo 6 



000 


pa r a 


rrr 


= 


a 


registrador 


B 


00 1 


p a r a 


rrr 


= 


a 


registrador 


C 


0 1 0 


p a r a 


rrr 


= 


a 


registrador 


D 


0 1 1 


para 


rrr 


= 


a 


registrador 


E 


100 


p a r a 


rrr 


= 


a 


registrador 


H 


1 0 1 


p a r a 


rrr 


= 


a 


registrador 


L 


1 1 1 


para 


rrr 


= 


a 


registrador 


A 


Figura 1 



ressetada; 

Z — setada se o dado 6 zero ; sen2o 6 ressetada ; 

H - ressetada; 

P/V - setada se a paridade 6 par; senSd 6 resse- 
tada; 

N — ressetada; 

C - nSo afetada. 

Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B 6 10H e o byte 7BH estd disponivel na porta 
cujo endere 90 6 07H. Apos a execu 9 ao da instru 9 ao IN D, (C) 
o registrador D iii conter 7BH. 

Um tfpico uso desta instru 9 ao consiste em efetuar a busca 
de um dado em uma porta de I/O (polling). Veja o exemplo a 
seguir: 





LO 


c , o r f h 


;C ♦ 


PORIA 2 S S 


LOOP 


IN 


B.IC) 


;B 


DADO DA PORIA 255 




3R 


I .LOOP 


; RE PE IE SE N*0 EXISIE DADO. 




IN 


A, ( OF E H ) 


5 * ♦ 


D A 00 DA PORIA 25* 



3 — Input e In ere men ta 

Formato: INI 

Operagao: O byte contido na porta cujo endere 90 se encontra 
no registrador C 6 transferido para o endere 90 de memdria apon- 
tado pelo par de registradores HL. HL 6 incrementado e B 6 
decrementado. 

Cddigo Objeto : 

I N I 



1 


110 


1 1 


■ I ■ 

1 0 1 


1 


0 1 0 

1 ■ 1 


0 

1 


o 
— * 
o 



Descrigdo: 0 registrador C contdm o endere 90 da porta de en- 
trada. O dado existente na porta 6 transferido para o endere 90 
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de memdria apontado pelo par de registradores HL. Finalmen- 
te o registrador B e decrementado e o par de registradores HL 
6 incrementado. 



(HL) 


( C ) 


B 


( B- 1 ) 


HL 


( HL + 1 ) 



Instrugao: INI 
Ciclos de mdquina (M): 4 
States (T): 16 (4 ,5 ,3 ,4) 

Flags afetadas: S — desconhecida ; 

Z — setada se B-l= 0; senao 6 ressetada; 

H — desconhecida; 

P/V — desconhecida; 

N — setada; 

C - nSd afetada. 

Exemplo: 0 programa a seguir deve ler dados da porta 1 at£ a 
porta 80, transferindo os dados para um buffer na memdria: 





LD 


8,80 


i B ♦ 


Nr. de portas 




ID 


C , 0 


; c * 


Nr. da porta Inlcial 




L 0 


HL , BUF F 


;Ml ♦ 


e n d e r c 9 o do buffer 


100P 


IMC 


C 


iC ♦ 


C. 1 




INI 




; L e o 






3 P 


H/.IOOP 


{Repete ate B = 0 



4 - Input, Incrementa e Repete 

Format o: INIR 

Operagdo: 0 byte contido na porta cujo endere50 se encontra 
no registrador C 6 transferido para o endere?o de memdria 
apontado pelo par de registradores HL. HL 6 incrementado e B 
e decrementado. Esta opera$5o se repete at 6 que o conteudo 
do registrador B seja 0. 

Codigo Objeto: 

INIR 

1 1 1 1 1 1 1 

1110 110 1 

— I 1 1 1 — I — I 1 

10 110 0 10 
1 1 1 1 — I — I 1 — 

Descrigdo: 0 registrador C cont^m o endere90 da ponta de en- 
trada. O dado existente na porta 6 transferido para o enderefo 
de memdria apontado pelo par de registradores HL. O registra- 
dor B 6 decrementado e o par de registradores HL 6 incremen- 
tado. A instru5ao termina quando o conteudo do registrador 
B<*0. 



(HL) 


(C ) 


B «- 


B- 1 


HL 


H L ♦ 1 



Instrugao: INIR 

Ciclos de mdquina (M): 4 (se B= 0); 5 (se B < > 0) 

States (T): se B= 0: 16 (4, 5, 3 ,4) 

se Bo 0:21 (4, 5, 3, 4, 5) 

Flags afetadas :S —desconhecida; P/V - desconhecida; 

Z —setada; N —setada; 

H - desconhecida; C — n2o afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B 6 03H e o conteudo do par de registradores 
HL 6 1000H. A seguinte seqiiencia de bytes estd disponivel no 
dispositivo cujo endere?o 6 07H : 

S1H 

A9H 

03H 



Portanto, apos a execu9ao da instrufSo INIR, o conteudo do 
par de registradores HL sera 1003H, o registrador B ir i conter 
0 e as posifSes de memdria a seguir terao estes dados: 

1000H S1H 
1001H A9H 
1002H 03H 

5 — Input e Decrement a 

Formato: IND 

Operagdo: O byte contido na porta cujo endere?o se encontra 
no registrador C 6 transferido para o endere90 de memdria 
apontado pelo par de registradores HL. Tanto HL quanto o re- 
gistrador B sao decrementados. 

Codigo Objeto: 

IND 

1 ' 1 1 ’ 0 ' 1 1 ' 0 ' 1 

— I 1 1 1 1 1 1 

10 10 10 10 

Descrigdo: O registrador C cont^m o endere?o da porta de en- 
trada. O dado existente na porta 6 transferido para o endere90 
de memdria apontadado pelo par de registradores HL. O regis- 
trador B e o par de registradores HL sao decrementados. 



( HL ) 


«- ( c ) 


B -e 


B- 1 


HL 


HL - 1 



Instrugao: IND 
Ciclos de mdquina (M): 4 
States (T): 16(4,53,4) 

Flags afetadas: S - desconhecida; 

Z - setada se B- 1 = 0 ; senao 6 ressetada ; 

H — desconhecida; 

P/V - desconhecida; 

N - setada; 

C - nSo afetada. 

Exemplo: Se o conteudo do registrador C € 07H, o conteudo 
do registrador B 6 10H, o conteudo do par de registradores HL 
6 1000H e o byte 7BH estd disponivel no dispositivo cujo en- 
dere90 6 07H. Apds a execu^o da instrufSo IND o endere90 
de memdria 1000H iii conter 7BH, o par de registradores HL 
iti conter 0FFFH e o conteudo do registrador B serd 0FH. 

6 - Input, Decrementa e Repete 
Formato: INDR 

Operagdo: O byte contido na porta cujo endere90 se encontra 
no registrador C 6 transferido para o endere90 de memdria 
apontado pelo par de registradores HL. HL e o registrador B 
sao decrementados. Esta opera9ao se repete at£ que o conteu- 
do do registrador B seja 0. 

Codigo Objeto: 

INDR 



1110 110 1 

— I 1 — I 1 1 1 1 

10 1110 10 
i i i i i i 1 

Descrigdo: O registrador C contdm o endere90 da porta de en- 
trada. O dado existente na porta 6 transferido para o endere90 
de memdria apontado pelo par de registradores HL. O registra- 
dor B e o par de registradores HL sao decrementados. A instru- w 
9§o termina quando o conteudo do registrador B e 0. m 
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CURSO DE ASSEMBLER - XIX 




Instrugao : INDR 

Ciclos de mdquina (M): 4 (se B= 0); 5 (se B <> 0) 

States (T):se B- 0: 16 (4,53,4) 

se B < >10: 21 (4,53,4,5) 

Flags afetadas: S — desconhecida ; 

Z - setada; 

H — desconhecida; 

P/V — desconhecida; 

N - setada; 

C — nSo afetada. 

Exemplo: Se o conteudo do registrador C 6 07H, o conteu- 
do do registrador B 6 03H e o conteudo do par de registrado- 
res HL 6 1000H. Com isso, a seguinte seqiiencia de bytes est£ 
disponivel no dispositivo cujo endere^ 6 07H: 

51H 

A9H 

03H 

Portanto, apos a execu^o da instru^o INDR, o conteudo do 
par de registradores HL ser2 OFFDH, o registrador B iii conter 
0 e | as posies 1 de memdria a seguir ter2o estes dados: 

OFFEH 03H 
OFFFH A9H 
1000H 51H 

7 — Output para Acumulador 
Formato: OUT (n), A 

Operagao: O byte contido no Acumulador 6 transferido para a 
porta u 

Codigo Objeto: 



OUT 


( 


n ) 


A 


1 ' 1 


0 


1 


0 


0 1 1 


n n 

» 


n 




n 


n 


n n n 
1 1 



Descrigdo: 0 numero da porta 6 especificado no operando n e 
o dado existente no Acumulador 6 transferido para a porta n. 
Instrugao: OUT (n), A 
Ciclos de mdquina (M): 3 
States (T): 11 (4,3,4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteudo do Acumulador 6 23H, apds a execu- 
920 da instru55o OUT 01H, A, o conteudo do dispositivo cujo 
endere90 6 01 H serd 23H. - 
8 - Output para Registrador 
Formato: OUT (C), r 

Operagao: 0 byte contido no registrador r 6 transferido para o 
dispositivo cujo endere5o se encontra no registrador C 
Codigo Objeto: 

OUT ( C ) , r 




onde itt pode assumir os valores que estlo na figura 1 . 

Descrigdo: O registrador C contdm o numero da porta de saida. 

O byte contido no registrador r 6 transferido para o dispositivo 

cujo endere90 se encontra no registrador C 

Instrugao: OUT (C), r 

Ciclos de mdquina (M ): 3 

States (T): 12 (4,4,4) 

Flags afetadas: Nenhuma 



Exemplo: Se o conteudo do registrador C 6 01 H e o conteudo 
do registrador D 6 5AH, apos a execu^o da instrugao OUT 
(C), D o byte 5AH estard presente no dispositivo cujo ende- 
re90 6 01 H. 

9 — Output e Incrementa 
Formato: OUTI 

Operagao: O byte contido no endere?o de memdria apontado 
pelo par de registradores HL 6 transferido para o dispositivo de 
saida cujo endere^o se encontra no registrador C. HL 6 incre- 
mentado e B 6 decrementado. 

Codigo Objeto: 



OUTI 



1 


V 


r™"" 

1 


0 


— 1 — 1 — 1 — 

1101 


1 


0 




0 


0 0 11 
1 1 1 



Descrigdo: O registrador C contdm o endere?o da porta de sai- 
da. O byte existente no enderefo de memdria apontado pelo 
par de registradores HL 6 transferido para o dispositivo de saf- 
da cujo endere?© se encontra no registrador C. O registrador B 
6 decrementado e o par de registradores HL 6 incrementado. 



(C ) 


( HL ) 


B -t- 


B- 1 


HL 


HL + 1 



Instrugao : OUTI 
Ciclos de mdquina (M): 4 
States (T): 16 (4,53,4) 

Flags afetadas: S — desconhecida ; 

Z - setada se B- 1 = 0 ; senao 6 ressetada ; 

H — desconhecida; 

P/V - desconhecida; 

N — setada; 

C -nSd afetada. 

Exemplo: Se o conteudo do registrador C 6 07H o conteudo 
do registrador B 6 10H, o conteudo do par de registradores HL 
6 1000H e o conteudo da posifSo 1000H de memdria 6 59H. 
Apos a execu^o da instrusSo OUTI o conteudo do registrador 
B serd 0FH, o par de registradores HL ir i conter 1001H e o 
byte 59H estar2 presente no dispositivo de saida cujo endere^ 
6 07H. 

10 — Output, Incrementa e Repete 

Formato: OTIR 

Operagao: O byte contido no endere^ de memdria apontado 
pelo par de registradores HL £ transferido para o dispositivo 
de saida cujo endere^o se encontra no registrador C. HL 6 in- 
crementado e B 6 decrementado. Esta operafao se repete at£ 
que o conteudo do registrador seja 0. 

Codigo Objeto: 

OTIR 



1 


1 


1 


— 

0 


' 1 


1 


0 


1 


1 


0 

— 


1 

— 


1 

L. ■ 


0 

— 


0 


1 


1 



Descrigdo: O registrador C cont^m o endereijo da porta de sai- 
da. O byte existente no endere^o de memdria apontado pelo 
par de registradores HL 6 transferido para o dispositivo de sai- 
da cujo endere50 se encontra no registrador C. Finalmente, o 
registrador B 6 decrementado e o par de registradores HL 6 in- 
crementado. A instru§ao termina quando o conteudo do regis- 
trador B 6 0. 
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( c ) 


( HL ) 


B 


B- 1 


HL 


HL + 1 



Instrugdo: OTIR 

Ciclos de mdquina (M): 4 (se b= 0); (se B <> 0) 

States (T): se B= 0 : 16 (4,5 3,4) 

se B<>0: 21 (4,5,3 ,4,5) 

Flags afetadas.S - desconhecida; P/V — desconhecida; 

Z — setada; N -setada; 

H - desconhecida; C — nfo afetada. 

Exemplo: Se o conteudo do registrador C £ 07H o conteudo 
registrador B 6 03 H e o conteudo do par de registradores HL 6 
1000H. As posi9oes de memdria a seguir conterao estes bytes: 
1000H 51H 
1001H A9H 
1002H 03H 

Portanto, apds a execufao da instnifao OTIR, o conteudo do 
par de registradores HL serd 1003H e o registrador B ird conter 
0. 0 conjunto de bytes enviados para o dispositivo de safda cu- 
jo endere^o 6 07H s3o os seguintes: 

51H 

A9H 

03H 

1 1 - Output e Dec re men ta 
Formato: OUTD 

Operagdo: 0 byte contido no endere90 de memoria apontado 
pelo par de registradores HL 6 transferido para o dispositivo de 
safda cujo endere90 se encontra no registrador C. Tanto HL 
quanto o registrador B sSo decrementados. 

Cddigo Objeto: 

OUTD 

I'lio'l’l'o’l 

—I — I — I — I — I — I — I— 

10 10 10 11 
I I I I I I I 

Descrigdo: O registrador C contdm o endere90 da porta de saf- 
da. O byte existente no endere90 de memdria apontado pelo 
par de registradores HL 6 transferido para o dispositivo de saf- 
da cujo endere90 estd contido no registrador C. O registrador 
B e o par de registradores HL s£o decrementados. 



(C) (HL) 

B -f- B- 1 

HL HL - 1 



Instrugdo: OUTD 
Ciclos de mdquina (M): 4 
States (T): 16 (4,53,4) 

Flags afetadas.S —desconhecida; 

Z — setada se B-l= 0; sendo 6 ressetada; 

H - desconhecida; 

P/V — desconhecida; 

N — setada; 

C - nao afetada. 

Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B 6 10H, o conteudo do par de registradores 
HL 6 1000H e o conteudo da posi9So de mem6ria 1000H £ 
59H. Apds a execu9do da instru9ao OUTD o par de registra- 
dores HL iii conter 0FFFH e o conteudo do registrador B 
serd 0FH. O byte 59H foi enviado para o dispositivo de saida 
cujo endere90 e 07 H. 



12 - Output, Decrementa e Repete 
Formato: OTDR 

Operagdo: O byte contido na posi9ao de memdria apontada 
pelo par de registradores HL £ transferido para o dispositivo 
de safda cujo endere90 se encontra no registrador C. HL e o 
registrador B sao decrementados. Esta opera9ao se repete 
atd que o conteudo do registrador B seja 0. 

Cddigo Objeto: 

OTDR 

1110 110 1 

— I 1 — I 1 — I — I 1 — 

10 1110 11 
i i i i i j i 

Descrigdo: O registrador C contdm o endere90 da porta de en- 
trada. O byte existente no endere90 de memdria apontado pe- 
lo par de registradores HL £ transferido para o dispositivo de 
saida cujo endere90 se encontra no registrador C. O registrador 
B e o par de registradores HL sao decrementados. A instn^ao 
termina quando o conteudo do registrador B £ 0. 



( C ) ( HL ) 

B «- B- 1 

HL +■ HL - 1 



Instrugdo: OTDR 

Ciclos de mdquina (M): 4 (se B= 0); 5 (se B <> 0) 

States (T): se B= 0: 16 (4,53,4) 

se B<>0: 21 (4,53,4,5) 

Flags afetadas: S — desconhecida ; 

Z —setada; 

H —desconhecida; 

P/V — desconhecida; 

N — setada; 

C - nao afetada. 

Exemplo: Se o conteudo do registrador C £ 07H, o conteudo 
do registrador B £ 03H, o conteudo do par de registradores 
HL £ 1000H e o conteudo das posi9Ses de memdria sao as se- 
guintes: 

0FFEH 51H 
0FFFH A9H 
1000H 03H 

Portanto, ap6s a execu9§o da instru9ao OTDR, o conteudo do 
par de registradores HL serd 0FFDH e o registrador B-ird con- 
ter 0. Os bytes que foram enviados para o dispositivo de saida 
cujo endere90 £ 07H sao os seguintes: 

03H 

A9H 

51H 

Com as instru9oes q 

Com as instru9oes que abordamos nesta li9ao completamos 
a descri^o do set de instru9oes do microprocessador Z80 e en- 
cerramos o nosso Cur so de Assembler. Durante 19 mesesesti- 
vemos juntos e agora voce jd possui as informa90es necessdrias 
para elaborar seus proprios programas. Se voce ndo souber por 
onde come9ar, analise os programas que sdo normalmente pu- 
blicados em revistas especializadas e aproveite para estudar a 
estrutura de programa9ao feita por quern tern mais experien- 
ce. Vd em frente e boa sorte! ■ 



Amaury Correa de Almeida Morses Junior 4 formado pelo curso de 
Anilise de Sistemas da FASP, tendo feito di versos curtos de aperfeipoe- 
mento nas dress de EletrOnice Digital e Microprocessadores, e atualmen- 
te tr aba I ha na Area de microcompu tadores para o City bank. 
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Micro-Master MK-1, da Rif ran: 
computador educacional 
para estudantes de eletronica 




montador Assembler, embora 
esses implcmentos nao alterem 
cm muito seu pre^o dc venda. 
Um assemblador permitiria ao 
usuario montar um programa 
Assembler no MK-1 da mesma 
forma como num micro da 
linha TRS-80. Esse software, 
porem, pode ser descnvolvido, 
embora no caso o usuano deva 
ser um espccialista. 

A maquina vcm acompanhada 
dc um manual com cxemplos 
dc programa^So. O manual, no 
entanto, peca a nfvel de 
aprcscnta?ao grafica e contcudo. 
Os cxemplos dc utiliza^ao do 
equipamento nao sao cm 
c numcro suficientc e podcriam 
2 chcgar a um nfvel maior de 
j£ dificuldadc. Alem disso, faltam 
a, explica^ocs mais detalhadas 
"5 sobre a operagao do 
„ equipamento e a parte final do 
72 manual n5o vem traduzida, o 
"2 que pode causar interpreta^oes 
° erroneas para quern nao domine 
^ o Ingles. 

u_ Os programas de demonstra<;ao 
que acorn panham o 
equipamento sao bastante 
simples. Hd 0 toque de telcfone, 
letreiro dinamico, cronometro, 
flash, sirene policial, musica, 
relogio, orgao (com notas dc 0 a 
F) e a palavra Brasil piscando no 
visor. 

Como 0 fabricante nos enviou o 
equipamento apenas com a 
memoria EPROM 2716 para 
2 Kb e com os programas de 
dcmonstra?2o, nao puderam ser 
analisados alguns acessonos 
opcionais, como o interprete de 
Tiny BASIC em 2 Kb de ROM; 
o GEP, program ador de EPROM 
para memonas de 1, 2 e 4 Kb;e 
o MSS, um sintetizador de voz, 
que parccem ser os acessorios 
mais interessantes. Os outros, 
ja disponiveis no mercado 
segundo o fabricante, sao 
EPROM 2732 virgem para 4 KB; 
RAM 6116 de 2 Kb; Z80 PIO 
para interface com perifericos 
(16 linhas);Z80CTC para 
realizar contadores e 
temponzadores; e MSG, um 
gcrador de efeitos sonoros p 
especiais. 



U m sistema de baixo 
custo voltado para 
estudo, ensino e 
desenvolvimento de 
microprocessadores. Deste 
modo, o Micro-Master MK-1 e 
defmido por seu fabricante, 
a Rifran Eletronica, que 
lan^ou o produto em outubro 
do ano passado, durante a III 
Feira Intemacional dc 
Informdtica. 

Baseado no Z80, da Zilog, 
com 158 instm^Ses e todos os 
sinais desse microprocessador 
acessi'veis num conector de 40 
pinos, o MK-1 pode ser usado 
como prot6tipo para 
desenvolvimento de software e 
hardware em aplica^oes 
especfficas com o uso da 
linguagem Assembler do Z80, 
8080 e 8085. Uma aplica^ao a 
nfvel industrial seria de 
sistemas de controle de 
processos, como, por exemplo, 
o desenvolvimento de um 
programa que desligasse 
maquinas que atingissem uma 
determinada temperatura. Para 
o aprendizado, ele auxilia na 
feitura de rotinas operacionais, 
como calculos, e e excclente 
para o uso da linguagem 
Assembler no estigio de 
calculo, Sort e organiza^ao de 
sistemas. 

O MK-1, que mede 20x25 ,5x 
4,5 cm, possui 2 Kb de 
memdria RAM e a mesma 
quantidadc de ROM;ambas 
podem ser expandidas 
respectivamente para 4 e 8 Kb. 
O teclado, de 36 teclas com 
feedback tactil, incluindo 19 
teclas de fringes poderosas do 
monitor, n£o possui a 
facilidade alfanumerica dos 
micros tradicionais. O display 
LED 0,56”, por sua vez, 
conta com recursos 
alfanumericos, mas apresenta 
apenas seis digitos, o que 
muitas vezes faz com que as 
informa^Ses sejam pouco 
definidas. 

O computador educacional da 
Rifran conta ainda com 
interface para gravador cassete 
com velocidade de transmissao 
de 165 cps, soquetes para 
circuitos opcionais como PIO 
E CTC e auto-falante 



O MK-1 permite o desenvolvimento de hardware 
e software para aplicagoes especfficas, inclusive 
a nfvel de controle de processos. 



embutido para efeitos sonoros. 
Sua fonte de alimentac£o e 
100/220 VAC, 50/60 Hz - 9 
V DC/600 mA. 

O Micro-Master MK-1 tern 
uma boa configura<;ao de 
hardware , inclusive de 
barramento com todos os 
sinais, o que facilita a cria^ao 
de outros hardware a partir do 
existente. No entanto, todo o 
hardware, a nfvel de acessorio, 
esti dentro da maquina, nao 
haven do op^ao do fabricante 
de interface para video ou 
comunica^Jo de dados. 



maquina dos micro- 
processadores Z80, 8080 e 
8085. Seu monitor traz alguns 
recursos especiais, tais como 
insercao e coloca^ao de 
break points (paradas), 
execu^ao de programa passo a 
passo, insercao c extra^ao de 
linhas de programa com 
recoloca?Jo automatica dos 
endere^os, calculo de 
endere^os relativos para as 
instru^oes JR e DJNZ e 
transferencia de blocos de 
dados na memoria RAM. 
Convem ressaltar, portanto, 
que um computador do tipo 
do M K- 1 nao pode ser 
utilizado como um micro 
tradicional. Ele nao dispoe, 
por exemplo, dc um 
disassemblador nem de um 



SOFTWARE 



O Micro-Master executa 
programas na linguagem de 



Texto: Lucio Santos 
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m.S. Seruicos 



(OMPONENTi 

eletrOnica ltda 



SEU MICRO EM 
BOA COMPANHIA 
ASSISTENCIA TECNICA 
AUTORIZADA: 



PROLOGICA 

UNITRON 

DIGITUS 

.ELEBRA 




(031) 201-5156 
Rua Espi'rito Santo. 1868 
Belo Horizonte — M.G. 




Uma Empresa a 
Servipo da 
Micro Eletronica 



Assistencia 

Tecnica 

Autorizada 

prol6oica 

UNITRON 

ELEBRA 



Rua St.* Rita Durao, 384 
FuncionArios 
Tel.: (031) 235-4144 
Belo Horlsonte — MO. 



SFEETITIS 

CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLOGICO E DE 
INFORM AT 1C A DE MINAS 
GERAIS LTDA. 



Ja estao abertas as 
inscrigoes para 
o curso de Analises 
de Sistema. com 
estagio garantido 
para todos os alunos 
em nosso CPD 



Rua Tamoios n°. 462/911 
Rua da Bahia n°. 504 - 4°. andar 
B. Horizonte - M. Gerais 



MICROCITY 

compulodores e sislemas 



MICROS, PERIFERICOS 
E SUPRIMENTOS 

A loja onde voce 
tern assistencia na 
compra, na aplicagao • 
e manutengao de seu 
equipamento 
LITERATURAECURSOS 
ESPECIALIZADOS 

CONSULTE-NOS 
SEM RECEIO 



R. Parai'ba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 



rmcRoeouiPO 



COMPUTADORES 
E PERIFERICOS 



UNITRON 

MICROCRAFT 



VENDAS 

LEASING 

PROGRAMAS 

CURSOS 

ASSISTENCIA 

TECNICA 



Av. Mai. Camara, 271 f/lo)a 101 
Tel: (021) 262-3289 — R.|. 



MIKROS’ 
AGORA NO 
LEBLON! 

Av. Ataulfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PKFgOS 
■ INCRIVEIS" DA MIKROS 
IX) LEBLON. APOS SI A 
EKX:a DE 1NAUGURACAO. 

• MICROCOMPin ADORES 
Ijnhas Sinclair, TRS-80 \ppli crt 

• PERIFERICOS 
linprt-ssoras. videos, interfaces, etc 

• SOFTW ARE NAC. E IMPORT 
Mais de ’Of) pro^ramas e lOffos 

de todos os tipos 

• CURSOS DE BASIC 

• SUPRIMENTOS 

Formularios continues, fitas. disketes. etc 



PROFISSIONAIS 
ALT A MEN TE ESPECIALIZADOS 
PARA ATENDE-LO 




AV. ALMIRANTE BARR0S0, 81 - U "C" 
TEL: 262-9229 262-9088 - 240-8410 - 221-8282 
RIO DE JANEIRO -CASTELO 



MICROCOMPUTADORES 
DE TODAS 
AS MARCAS 

SUPRIMENTOS 

PEQAS E PARTES PARA 
MICROCOMPUTADORES 

JOGOS ELETRONICOS 



RUA BARATA RIBEIRO. 370 
- Loia 105 APART HOTEL — 
COPACABANA — RIO — RJ 
TEL (021)257-6396 


















IN FORM AT 1C A AO 
ALCANCE 
DE TODOS 

ENTRE NA ERA 
COMPUTADORES 



• Introdugao ao Processamento 
de Dados • Digitaqao • Basic 

• Cobol • RPG • PL 1 • Fortran 

• Assembler • Mumps 

255-5396 - 227-7417 

Copa — Centro — Tijuca — Meier 
Madureira — N. Iguagu — Caxias 

DATABERA R — PROCESSAMENTO 
DE DADOS Rio de Janeiro 



MATRICULE-SE JA 




DOS 



NOVAS 

TURMAS 






AGORA £ MAIS FACIL ASSINAR 



comod'dade. 



^^toraUda-_ 

“ a sua dispos*^ 0 
de seu* reP'®*^ 



/Micro 



RIO DE JANEIRO 
ATI Editors Ltda. 

Av. Presidents Wilson. 165 - GR. 1210 
CEP 20030 - Tels.: (021) 262-5259 



SAO PAULO 

ATI Editors Ltda. 

Rua Oliveira Dias, 153 
CEP 01433 -Tels. (011)853-3800 
8537758 



RECIFE 

Monte Si9o Distr. Nordeste Ltda. 

Rua Almeida Cunha, 65 

CEP 50000 - Tel.: (081) 222-1699 



GOlANIA 

Tiago Motta Araujo 

Rua 6, nd 310 - CEP 74000 



BELO HORIZONTE 

Profissional Com. Rep. Editoriais Ltda. 
Rua Guajajaras. 410 — Cj. 305 
CEP 30000 - Tel.r (031 ) 222-8679 

PORTO ALEGRE 

Aurora Assessoria Empresarial Ltda. 

Rua Uruguai. 35 — sala 622 
CEP 90000 - Tel.: (0512) 26-0839 



4ISLU 




circuitos 



DIGITAIS 

HERBERT TAUB Q 

microprocessadores 




TAUB, H., Circuitos Digitais e 
Microprocessadores, Editors 
McGraw-Hill. 



Este livro destina-se 3s ireas de 
projetos Ibgicos e microprocessa- 
dores, cobrindo todos os princf- 
pios Ibgicos de sistemas digitais e 
do projeto Idgico. Na parte de mi- 
croprocessadores, o estudo con- 
centra-se no modelo 8080, porim 
s£o fornecidos dados detalhados 
que podem ser aplicados em ou- 
tras unidades. 

Mais de 300 problemas cuida- 
dosamente elaborados realgam a 
utilidade pritica deste texto, que 
traz tamWm explicates simples 
e claras sobre flip-flops (capCtulo 
4), membrias (capitulo 6) e um 
tratamento completo sobre con- 
troladores, permitindo uma ficil 
transifo de projetos orientados 
de hardware para projetos orien- 
tados de software. 




EDITfMfA CAMPUS 



WAITE, M; PARDEE, M, O 
Seu Computador Pessoal, 

Editors Campus. 

Este livro proporciona ao ini- 
ciante no campodos microcompu- 



tadores pessoais o conhecimento e 
confianpa necessirios para tirar o 
miximo proveito deste poderoso 
instrumento de trabalho. 

Atravbs de um texto simples, 
numa linguagem bastante acessf- 
vel, ele explica o que signifies 
possuir um microcomputador — o 
que se pode fazer com ele, de ma- 
neira isto vem facilitar a vida do 
usuirio e como este deve proceder 
ao comprar um, avaliando-o para 
seus prbprios usos — apresentando 
estes equipamentos como miqui- 
nas simples e ficeis de controlar 
que na verdade sSo. 

De especial interesse 6 o capi- 
tulo que fornece uma anilise com- 
parativa dos 30 mais populares 
micros nacionais e estrangeiros de 
uso pessoal ou para a pequena 
empresa, considerando custos, 
capacidade, modelos etc. 




MIRSHAWKA, V., 

TK Divertindo; TK Lembrando; 
TK Calculando, Livraria Nobel. 



TK Divertindo, TK Calculan- 
do e TK Lembrando sSo livros 
dedicados especialmente aos mi- 
crocomputadores baseados na 16- 
gica Sinclair. Dirigindo-se aos ini- 
ciantes em computagffo, em cada 
um dos volumes o leitor encontra 
as orientates ml'nimas para a uti- 
lizafo do equipamento: como 
manipular corretamente o teclado 
para digitar programas; relafo 
das palavras-chaves que podem ser 
acessadas com uma unica tecla; 
primeiros socorros, indicando a 
soIuqJo para alguns dos problemas 
mais comuns encontrados pelos 
usuirios durante as operates 
com a miquina, e como armaze- 
nar um programs no gravador e 
recuperi-lo posteriormente. 

A colepio complete mostrari 
ao leitor a digitafo etapa por 
etapa, linha por linha de um pro- 
grama, orientando para os funda- 
mental truques de programafo. 
Com base nos 100 programas indi- 
cados, o leitor poderi programar 
seus pr6prios jogos ou entSo resol- 
ver seus problemas de Materniti- 
es, Ffsica, Qufmica, Finanpas ou 
Engenharia. 



MICRO SISTEMAS, agosto/84 









Filiada a ABICOMP 





Leve logo um microcomputador 
TK 85, porque ele e realmente facil de 
usan ja vem com manual de instru<;6es, 
que ensina,em portugues claro, 
a linguagem Basic. 

A partir dai, voce pode preparar 
seus proprios programas ou utilizar as 
centenas de programas que ja existem 
no mercado,para cadastrar clientes, controlar 
estoques, manter em ordem o or<;amento 
familiar, fiscalizar a conta bancaria, estudar 
matematica, estatfstica, jogar xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar. 
E alem disso tudo, o TK 85 tern 
tambem o pre^o mais acessivel do mercado. 
Pe^a uma demonstragSo. 



TK 85,0 micro que voce pode usar. 




computadores pessoais 
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CURSOS 



• A pro-informAtica sis- 

TEMAS CONSU LTORI A E TREI- 
NAMENTO oferece regularmente 
cursos de Cobol, Basic, Basic 
Avangado, e Assembly com tur- 
mas reduzidas. AI6m das aulas 
pr^ticas, os alunos dispdem dos 
computadores com assistencia de 
monitores em hor^rios extra-aula. 
Av. do Contorno. 6608, Savassi. 
Tel.: (031) 225-7666- Belo Ho- 
rizonte. 

• A PRODATEL Processamento 
de Dados de Telecomunicagoes, 
abre inscrigdes para os cursos: 
Programagao em Linguagem: Co- 
bol, PL-1, Mumps e Basic. Andli- 
se de Sistemas, Teleprocessamen- 
to. Banco de Dados, Automagao 
de Escritdrio, Digitagao. Aulas 
pr^ticas em computadores IBM e 
Digitus. Informagdes Rua Curiti- 
ba, 689/7? and. Centro e Savassi. 
Tel.: 201-9323, BH/MG. 

• A Mikro Informdtica continua 
oferecendo com sucesso os seguin- 
tes cursos: Informdtica p/jovens, 
Operagdo e Programagdo de mi- 
crocomputadores, Linguagem Ba- 
sic e Cobol. Inscrigdes e informa- 
goes a Av. Af. Pena, 952/522. 
Tel.: 222-3035 BH/MG. 



• A Lourdes Inform^tica, inicia- 
rb novas turmas de Basic I e Ba- 
sic Avangado, a partir de 06.08.84, 
de manhS e a noite. Inf. e insc. 
Tamoios, 530 — Fone: (031) 201- 
7869 — Belo Horizonte/MG. 



SOFTWARE 



• Vendo fita c/10 prog, entre os 
100 que possuo, por apenas 15 
mil. Escreva p/Wagner Tranin Pg. 
Afonso Pena, 77/603 - 12200 - 
S. J. dos Campos — SP. Tel.: 21- 
6753. 

• Vendo interpretador Logo pa- 
ra TK-2000 ou Apple, dtimos re- 
cursos graficos, totalmente em 
portugues e gravado em fita, in- 
formagoes com Walmir Scaravelli, 
R. Adelino X. Silveira, 96 — Itu — 
SP: CEP 13300, Fone (011) 
482-1704. 

• Compilador Basic p/CP500 e 
QQR TRS — seu progr. 20vezes + 
veloz acompanha disco Z Basic + 
manual 16 ORTN — cheque no- 
minal a Compuserv — Inf. Ass. 
Ltda. R. Amador Bueno, 155, 
Santos, SP, CEP: 11100. 



• Vendo ft. c/25 jogos 16K, 2 
em 3D p/TK, CP 200 e Sinclair 
Cr$ 15 mil. Sergio. Cx. P. 529 — 
09500 - S. C. Sul-SP. 

• Troca de programas (TRS-80) 
— o grupo de usuarios brasileiros 
de TRS-80 dispoe de maisde 600 
programas para serem trocados. 
Correspondence para Caixa Pos- 
tal 10376 - CEP 90000, Porto 
Alegre (RS). 

• CP500 - CP300 - TRS80 - 
DGT100/1000. Aplicativos, utili- 
tarios, jogos, compiladores — mais 
de 1000 programas — desenvolve- 
mos sistemas. Tel.: 571-0844 — 
RJ, (noite) Marcos. 

• Soft-TRS80 sist. comerciais 
tratar c/Prodadi — SEPN 509, Ed. 
Isis - loja 25, CEP: 70.750, Brasi- 
lia DF. Fone (061 ) 274-4779. 

• Vendo fita c/10 programas p/ 
Cr$ 17.000,00, entre eles sinte- 
tizador de voz, zaxxon tridimen- 
cional e v£rios importados, para 
microcomputador TK-85. Escreva 
para Joao B. Castro - Rua Licinio 
Leite Machado, 59 - Bairro San- 
tana — Sao Jos6 dos Campos, 
CEP: 12200, ou fone (0123) 
22-0420. 



EQUIPAMENTOS 



• Na Mikro voce encontra CP- 
500, TK2000, CP300, impresso- 
ras, drivers. Av. Af. Pena, 952/ 
522 - Tel.: 222-3035 BH/MG. 

• CP200 vendo praticamente 
novo tratar p/tel.: 237-6248 sec. 
eletronica Fernando — Rio de 
Janeiro. 



CLUBES 



• O melhor clube do Brasil para 
CP-200, TK-83, TK-85, R-470, 
CP-300, CP-500, DTG-100 e com- 
tfveis. Torne-se amigo do Compu- 
club inscrigao gratis, e voce asse- 
gura o imediato recebimento de 2 
fitas com 6 excelentes programas 
gratis, de procedencia estrangeira. 
E mais ainda, voce passar^ a rece- 
ber, regular e gratuitamente, bole- 
tins do Compuclub, com jogos e 
dicas especiais. Escreva-nos indi- 
cando o equipamento que possui 
e anexe cheque no valor de 
Cr$ 6.500,00, exclusivamente pa- 
ra cobrir as despesas de porte e 
embalagem do material a ser en- 
viado. Compuclub, Caixa Postal 
1795, 30000 — Belo Horizonte, 
MG. 



erro 


MS 

N9 


NA PAGINA 


CORRE^AO 


33 


16, no programa Editor Assem- 
bler para a linha Sinclair, scgunda 
coluna, segundo paragrafo: 


2 - execute o comando POKE 16389, 1 15 e logo apos digitc RUN; 

3 - . . . introduza o Editor Assembler (listagcm 2). No final da digitagao de o comando NEW 
novamente; 

4 - escreva o programa em BASIC (listagem 1); 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce e quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto voc£ terd que pagar? Isso tamb6m b 
decisao sua. Preste atengao: 

• cada linha de texto (30 toques, incluindo os espagos em branco) 
custa Cr$ 2.000,00; 

• linhas incompletas serao cobradascomo inteiras; 



• o proprio anunciante deve checar o valor de seu anuncio com o 
numero de linhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal d ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 



V e|n d|o j D j G j Tj - 1 0 0 c|o;m 
deo e gravador cals 



3 2 K RAM, v f 

I I I I J__| J 1^ I 

s e t el. T r a!t air 



set 

2 lj) 



com | M a | r c o j s , , j f el: ( |0 2 1 ) |2 t 

Maiores informacoes pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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NOVO CP 300 PROLOGICA. 




0 pequeno 
grande micro. 



Compativel com 
programas em fita 
cassete ou em disco. 



Pode ser ligado ao seiraparelho de TV. da 
mesma forma que no terminal de video 
de uma grande empresa. 

Com o CP 300 voce pode 
fazer conexoes telefonicas 
^ para coleta de dados, 
se utilizar i t ^[ || 
de uma IhmI 
impressora | gSSSl 
e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 
TRS-80 americano. E o que e melhor; 
voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Prologica. 

Os outros nao aam p RO LOGICA 

fazem o que ele faz, mtcrocomputadores 

pelo prego que BBB 

ele cobra. BB A, Eng LusCanosBemn, 1H8-SP 



Agora, na hora de escolher entre urn 
microcomputador pessoal simples, de facil 
manejo e urn sotisticado microcomputador 
profissional, voce pode ficar com os dois. 

Porque chegou o novo CP 300 Prologica. 

0 novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria v ' 
de microcomputador grande. 

Ele ja nasceu com 64 
kbytes de memoria 
^ . interna com 

possibilidade de Permite 
expansao de memo- = 
ria externa para ate 
r quase 1 megabyte. 

E tern urn teclado profissional. 
que da ao CP 300 uma versatilidade incrfvel. 

Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. lilfflfl Fgl! 

0 unico na sua faixa que ja 
nasce com 64 kbytes de memoria, 



Pode ser ligado 
a um televisor comum 
ou a um sotisticado 
terminal de video. 



Pode ser 
acoplado a uma 
impressora 



V -.r 1 ' • 

•MG BeTOHofironte 227 0881 Bet m 531 3806 Ce Fa&rcano 8413400 Jutf 
^ < de Fora - 212-9075 Uber and a 235-1099* PA-Beem - 228-0011 • PR-Cascavei - 23-1538 Cur - 

T>Da - 224-5616 - 224-3422 - F(tt do Iguacu - 73 ; 3734 - Londr.na - 23-0065 ■ PE-Recife - 22 1 -0142 • Pl-Teresina 
222-0186 • Rj-Campos - 22-3714 - Rio de Janeiro - 264-5797 - 253-3395 252-2050 • RN-Natai - 222-3212 • RS-Caxias do 
Su 221-3516 - Peiotas - 22-9918 - Pono Alegre 22-4800 - 24-0311 - Santa Rosa - 512-1399 - RO-Porto Ve'ho - 221 2656 - SP 
^ Barretos - 22-6411 - Campinas - 2-4483 - Jundiai - 434-0222 - Mar a - 33-5099 - Mogi das Cruzes - 469-6640 - Piraocaba 33 1470 - R ne rao 
^^^Preto - 625-5926 - 635-1195 - Sao Joaquim da Barra - 728-2472 - Sao Jose dos Campos 22-7311 - 22-4740 - Sao Jose do Rio Preto 32-2842 - Santos 33-2230 
Sorocaba - 33-7794 • SC-Blumenau - 22-6277 - Chapeco - 22-0001 - Crtauma - 33-2604 - FlorianopoliS - 22-9622 - Joinvile 33-7520 • SE-Aracaiu - 224-1310 



Solicite 
demonstrated 
nos principal! 
magazines. 






(Preqo sujeiio a alteraqao). Filiada a ABICOMP 




Diskette, 



Teclado provisional 



i Son 



Alto resoluqao 
64 K RAM 



Interface de impressora incorporado 



Caixa Postal 54088 - CEP 01 000 - So o Paulo - SP ■ Telex N” (Oil) 37.008 - Mide BP 
A venda nos boas casas do ramo, lojas especializadas de fotovideo-som e grandes magazines. 
Se voce nao encontrar este equipamenio na sua cidode ligue para (Oil) 800-255-8583. 



A Microdigital apresenta 
o novo TK2000 color. 



Que tal um micro de alto performance , que traz as principal's caracterfsticas 
dos equipamentos mais sofisticados e que nao exige de voce um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 
necessidades? Sao estas as vantagens que vao fazer do novlssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: e/e tern 64K de memoria RAM e 16K de memoria ROM, teclado profissional 
tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 
trabalha em cores, oferece alta resoluqao grafica e som. 

Peqa uma demonstraqao. Nunca tanto foi Ihe oferecido por tao pouco. 
Grande quantidade de software disponfvel ( entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resoluqao grafica). 



E/e tem tudo que um 
micro de ve ter.Menos o preco. 





